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Introduction 


Since the dawn of the personal computer age, a staggering number of advances 
have occurred in computer technology. Perhaps the most noticeable advances 
have occurred in the computer hardware itself. Today's personal computers offer 
such a wide variety of sophisticated hardware features that their resemblance to 
their more anemic ancestors is practical^ nfl. The modem features of these tech¬ 
nological marvels include more powerful microprocessors; larger and faster 
memories, floppy disk drives, and hard disk drives; better monitors that offer 
beautiful high-resolution color graphics; high-speed printers (whether they are 
today’s faster and more versatile dot matrix printers or the wonderfully innova¬ 
tive laser printers); pointing devices (mice, joysticks, trackballs, and more); not 
to mention CD-ROM drives and WORM drives. Personal computer hardware 
technology has certainly advanced in many areas. 

While the personal computer hardware advances have captured a great deal of 
the spotlight, an equally impressive number of advances have occurred in com¬ 
puter software technology. After all, back when personal computers were first in¬ 
troduced, such necessities as a reliable operating system were almost totally 
unheard of. Not only do today’s personal computers have a number of reliable 
operating systems, but today’s modem programming languages are a far cry from 
yesterday’s extremely rudimentary BASIC interpreters. Perhaps the most subtle, 
but important, advance in software technology has occurred in the area known as 
the user interface. 

Essentially, a user interface is the method used by either an operating tystem or 
an application program to interact with the operator. A user interface that uses 
today’s state-of-the-art techniques such as windows, pull-down menus, pop-up 
menus, dialog boxes, and on-line help is light-years ahead of the cmde user inter¬ 
faces used by programmers in the earfy days of the personal computer. In fact, a 
well-constructed user interface can almost totally eliminate the need for an exter¬ 
nal manual, l^pically, operators will have to consult accompanying reference 
manuals only when they use unfamiliar program features. 

Because the user interface is such an important part of an application program, 
many companies have started selling progranuning toolboxes that offer reacfy- 
made functions for implementing today’s user interface features. Although pur¬ 
chasing a user-interface toolbox will certainly relieve programmers from writing 
their own user-interface routines, the generic functions supplied in the commer¬ 
cially available toolboxes aren’t always the best choice for ^ programs. On the 
other hand, a self-written user interface toolbox will provide programmers with 
routines that are easily customized to fulfill an application program’s specific 
needs. 
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Introduction 


Perhaps the biggest stumbling block in writing a user interface toolbox is the 
programmer’s lack of knowledge in the area of low-level display programming. 
To remedy this knowledge gap, this book provides the C programmer with the 
necessary knowledge for quick and easy implementation of today’s user interface 
techniques on the IBM PC and compatibles. Furthermore, this book presents a 
C user interface toolbox called WINDOWS.LIB (hereinafter referred to as WIN¬ 
DOWS). WINDOWS includes user interface functions for opening and closing 
t^ windows, pop-up menus, dialog box menus, pull-down menus, and more. 
When used properly in an application program, the WINDOWS functions will 
produce a user interface that is trufy state of the art in appearance. Additional¬ 
ly, the WINDOWS functions can be easily customized to satisfy an application 
program’s special needs. 


USER REQUIREMENTS 


To make the best use of information provided in this book, you should be an in¬ 
termediate-level programmer and must have a working knowledge of C. This 
book was written using Microsoft QuickC 1.0. Software and hardware require¬ 
ments include an IBM PC or compatible and one of the C compilers supported 
in this book (listed in Appendix C). 


CHAPTER OVERVIEWS 


• Chapter 1 explains how the MS-DOS video functions, how the IBM PC 
ROM BIOS video functions, and how direct memory access techniques 
are used to perform display input/output. 

• Chapter 2 presents the low-level assembly language routines for fillin g 
portions of the display with a specific character, setting the attributes for 
a portion of the display screen, saving a portion of the display screen in a 
memory buffer, redisplaying a previously buffered screen display, draw¬ 
ing a single-lined or a double-lined border around a portion of the display 
screen, and retrieving keyboard input. 

• Chapter 3 presents the low-level C routines for turning the cursor on and 
off, positioning the cursor, displaying single characters, and setting in¬ 
dividual character attributes. 
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• Chapter 4 presents routines for (fynamicalfy opening and dosing display 
windows, drawing windows, and scrolling windows and di^laying horizon* 
tal and vertical scroll bars. 

• Chapter 5 presents routines for implementing pop-up menus, dialog box 
menus, and pull-down menus. 

• Chapter 6 presents routines for di^laying error messages and trapping 
hardware errors and [Ctrl/C] interruptions. 

• Chapter 7 presents SIMPLE LEDGER, a complete general ledger ac¬ 
counting ^stem that illustrates how the WINDOWS toolbox is used to 
build an actual application program. 


APPENDIX OVERVIEWS 


• Appendix A presents a complete reference guide for the WINDOWS tool¬ 
box. A summary of the syntax, a description of its purpose, and a coding 
example are given for each of the WINDOWS toolbox functions. 

• Appendix B presents a reference guide for the IBM PC ROM BIOS video 
functions. 

• Appendix C explains how the WINDOWS toolbox is compiled by a variety 
of IBM PC C compilers. 





















1 The IBM PC Display 


Although the IBM PC family of computers supports a wide variety of di^lay adap¬ 
ters, there are onfy three basic methods for reading frtrni and writing to the dis¬ 
play: MS-DOS video services, ROM BIOS video services, and direct memory 
access. While all three display methods can be used to bufld effective program 
displays, such considerations as program portability, q)eed, and ease of program¬ 
ming should be considered before selecting a method for a particular application 
program. A further look at all three of the di^lay methods is necessary to fully 
understand how and why the WINDOWS toolbox performs dii^lay input/output 
the way it does. 


MS-DOS VIDEO SERVICES 


Without a doubt, the MS-DOS video services offer the highest degree of program 
portability. Not onfy do they offer portability across all IBM PC and compatibles, 
th^ provide compatibility for any computer that is capable of running MS-DOS. 
Because MS-DOS video services are called as MS-DOS function c^ (calls to 
INT 21H), their ease of use is quite high. Indeed, most hi|^-level languages use 
MS-DOS video services to implement their generic di^lay output commands (i.e., 
C’s printf function and BASIC’s PRINT statement). 

Although the MS-DOS video services’ high degree of compatibility makes them 
an excellent choice for writing highly portable programs, their lack of speed and 
versatility makes them unsuitable for windows environments such as WINDOWS. 
In fact, the MS-DOS video services’ lack of such essentials as display reading func¬ 
tions and cursor control functions would make them entirely unsuitable for im¬ 
plementing the WINDOWS operating environment. With the ^ception of their 
use by a C compiler’s run-time library, the MS-DOS video services are not used 
by the WINDOWS toolbox. 
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ROM BIOS VIDEO SERVICES 


Because of the MS-DOS video services’ shortcomings, many programmers have 
had to go elsewhere to find video routines that offer the speed and versatility re¬ 
quired by today’s application programs. Fortunately, the ROM BIOS video ser¬ 
vices offer a wide variety of routines that are quite capable of meeting almost any 
application program’s demands. However, use of the ROM BIOS video services 
does limit a program’s portability to IBM PCs and true compatibles. Because of 
a strong commitment by IBM and other manufacturers to maintain ROM BIOS 
compatibility, all of today’s PC compatibles have ROM BIOSes that are upward¬ 
ly compatible with the original IBM PC’s ROM BIOS. Therefore, use of the ROM 
BIOS video services does not impose any real problems in porting a program from 
one member of the PC family to another. 


Function Name 

Function Code 

Set Video Mode 


OOH 

Set Cursor Type 


01H 

Set Cursor Position 


02H 

Read Cursor Values 


03H 

Read Light Pen Position 


04H 

Select Display Page 


OSH 

Scroll Window Up 


06H 

Scroll Window Down 


07H 

Read Character/Attribute Pair 

08H 

Write Character/Attribute Pairs 

09H 

Write Characters 


OAH 

Set Color Palette 


OBH 

Write Graphics Pixel 


OCH 

Read Graphics Pixel 


ODH 

Write Character in Teletype Mode 

OEH 

1 Get Video Mode 


OFH 


Figure 1.1 The IBM PC ROM BIOS video functions 


Using the ROM BIOS video services is as simple as loading a few parameters into 
the CPU’s registers and making a call to INT lOH. Figure 1.1 outlines the ROM 
BIOS video services. Furthermore, Appendix B provides a complete description 
of all the ROM BIOS video services. The following code fragment shows how the 
ROM BIOS Set Cursor Position function could be used to move the cursor to the 
upper left comer of the display: 
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1 The IBM PC Display 


Example 1.1 


mov 

ah,2 

;AH=Set cursor position function code 

mov 

bh,0 

;BHsPage 0 

mov 

clh,0 

;DHsTop row of the display 

mov 

dl,0 

;DLsLeft column of the display 

int 

lOh 

;Set the new cursor position 


Perhaps the most important point to make about the above program fragment is 
that the ROM BIOS video services’ function code is always passed in register AH. 
Furthermore, when the video page number is required, it is usually passed in 
register BH. Instead of the two separate statements used in the above example, 
a mov dx,0 statement could have been used to pass the new cursor position. For 
that matter, an xor dx,dx statement would be an even more efficient way to pass 
the Row 0, Column 0 cursor position. Remember, any number xored with itself 
will always produce a result of zero. Thus, xoring the DX register with itself will 
result in the correct coordinates being passed to the ROM BIOS video services. 


DIRECT MEMORY ACCESS 


Although the WINDOWS toolbox could be completely implemented using the 
ROM BIOS video services, the ROM BIOS video services do not offer the speed 
required certain time>critical functions (i.e., reading and writing to large por¬ 
tions of the display screen). Therefore, all of WINDOWS’S time-critical fimctions 
will use direct memory access techniques to provide the necessary lightning-fast 
re^nse times. 
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To understand how display memory is directly accessed, consider a detailed look 
at the IBM PC display adapters. The three major display adapters used by the 
IBM PC are the Monochrome Display Adapter (MDA), the Color Graphics 
Adapter (CGA), and the Enhanced Graphics Adapter (EGA). Although these 
three display adapters have a wide variety of differences, th^ share the impor¬ 
tant feature of all being memory-mapped devices. When a display adapter is a 
memory-mapped device, programs, with a few restrictions, can directly read from 
and write to that display adapter’s memory by simply reading from and writing to 
a specific area of the computer’s memory. Figure 1.2 presents a simple memory 
map for the IBM PC and the three display adapters just mentioned. 


liemorg Offset 
FEOOOH 
F4000H 
COOOOH 
B8000H 
BOOOOH 
AOOOOH 


OOOOOH 


ROM BIOS 


Syetem ROM 

Reserved For BIOS Extensions 

CGA Display Memsry <16 Kbytes) 
MDA Display Memory (4 Kbytes) 
EGA Display Memory (256 Kbytes) 

Transient Partof COMMANDCOM 


Transient Program Area 
MS-DOS 


Interrupt Vectors 


FigMV 1.2 The IBM PC memory map 


The Monochrome Display Adapter 

The MDA is the most basic of the three display adapters. It only offers an 80- 
column 25-row black-and-white text mode. The memory map in Figure 1.2 
shows that the MDA uses 4K of memory, starting at OBOOOOH (B000:0000H). 
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1 The IBM PC Display 


The Color Graphics and Enhanced Graphics Adapters 

The CGA offers four text modes (40-column 1^ 25-row black-and-white, 40- 
column by 25-row color, 80-column 1^ 25-row black-and-white, and 80-column by 
25-row color) and three graphics modes (320-horizontal-pixel 200-vertical-pixel 
four-color graphics, 320 by 200 four-color graphics (without color burst), and 640 
by 200 two-color graphics). The EGA offers all seven CGA modes and more. 
Tliis book deals with the 80-column ly 25-row text modes, so only the CGA com¬ 
patible modes will be discussed in detail. 

As the memory map in Figure 1.2 illustrates, the CGA and the EGA while in the 
CGA compatible modes, use 16K of memory starting at 0B8000H (B800;0000H). 
Unfortunately, this area of memory is different from the one used ly the MDA. 
Although this may seem to be a serious drawback in implementing the WIN¬ 
DOWS operating environment, the WINDOWS initialization frmction is able to 
correctly determine the display adapter type and make the necessary adjustments 
to the WINDOWS operating environment. 


DISPLAY COORDINATES 


Figure 1.3 illustrates the display coordinates for an 80-colunm ly 25-row display 
screen. While the ROM BIOS video services use the coordinates 0,0 for the upper 
left comer and 24,79 for the lower right comer, the WINDOWS operating en¬ 
vironment uses the more standard coordinates of 1,1 for the upper left comer and 
25,80 for the lower right comer. Because the coordinate numbering system the 
WINDOWS operating environment uses is the one most commonly used by high- 
level languages, most programmers should feel rig^t at home using it. 
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24,0 


0,79 


24,79 


Figure 1.3 SiFcohimn by 25-row displ<^ screen coordinates 


CHARACTER/ATTRIBUTE PAIRS 


As shown in Figure 1.3, an 80-column by 25-row display screen is composed of 
2000 individual display characters (80 columns x 25 rows = 2000); therefore, it 
would seem logical to assume that an 80-column by 25-row display screen would 
require 2000 bytes of display memory. Unfortunately, this assumption would be 
incorrect. The IBM PC display adapters use a system of character/attribute pairs 
to display each of the individual characters. The character portion of each 
character’s character/attribute pair is simply its ASCII value. Accordingly, the 
first byte of screen memory would hold 4DH if an M is displayed in the upper left 
comer of the display screen. Figures 1.4 and 1.5 illustrate how the attribute byte 
for each display character’s character/attribute pair is constructed. If the charac¬ 
ter in the upper left comer of the display screen has a normal (white-on-black) 
attribute (07H), the second byte of screen memory holds the value 07H. 
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Flashing Bit 


0 

Background 

1 

Foreground 


Intensitg Bit 


Backgroend 

Bits Color 
0 0 0 Black 
1 1 1 White 


Foregrouad 

Bits Color 
0 0 0 Black 
00 1 Uralerli nod Whits 
1 1 1 Whits 


Flaahi ag Bit - Whsn sst (1) the character will flash on and off. 

lateasitg Bit - With a normal attribute (white character on a black background), the 
character's intensity will be doubled if this bit is sst. With a rsvsrss attributs (black 
character on a white background), the character's Intensity will be halved if this bit is set. 


Figure 1.4 The monochrome display attributes 



Blue Bit 
Green Bit 
Red Bit 
Intensity Bit 


Background 

Foraground 


FRGB 

Hex 

Color 

FRGB 

Hex Color 

0000 

00 

Black 

0000 

00 

Black 

000 1 

01 

Blue 

0001 

01 

Blue 

00 10 

02 

Green 

00 10 

02 

Green 

00 11 

03 

Cyan 

00 11 

03 

Cyan 

0100 

04 

Red 

0 100 

04 

Red 

0 10 1 

05 

Magenta 

0 10 1 

05 

Magenta 

0 110 

06 

Brown 

0 110 

06 

Brown 

0 111 

07 

White 

0 111 

07 

White 

1000 

08 

Flashing Black 

1000 

08 

Dark Gray 

100 1 

09 

Flashing Blue 

100 1 

09 

Light Blue 

10 10 

OA 

Flashing Green 

10 10 

OA 

Light Green 

10 11 

OB 

Flashing Cyan 

10 11 

OB 

Light Cyan 

1100 

OC 

Flashing Red 

1100 

X 

Light Red 

110 1 

OD 

Fleshing Magenta 

110 1 

OD 

Light Magenta 

1110 

OE 

Flashing Brown 

1110 

OE 

Yellow 

1111 

OF 

Flashing White 

1111 

OF 

Intense White 


Figure 1.5 CGA and EGA attribute bytes 
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VIDEO MEMORY OFFSETS 


To access a character’s position in video memoiy, you must devise a method for 
figuring the character’s video memory offset. A display character’s video memory 
offset is figured by multiplying the character’s row position 1^ 160 (remember 
there are two bytes per character, so there are 160 l^es for each display screen 
row) and adding the character’s column position to the result (row x 160 + 
colunm). For this method to work correctly, the ROM BIOS video services’ coor¬ 
dinate system must be used for the row and column values. However, you can use 
the willows coordinate ^stem just as easily by subtracting one from both the 
row and column numbers before applying them in the above formula. A display 
character’s attribute offset is figured by using the above formula and adding one 
to the result (row x 160 + column + 1). 

Although the MDA only provides enough memory for one display page, the CGA 
and EGA have sufficient memory for multiple display pages. To adjust the above 
formulas for multiple display pages, the page number is multiplied 4096 (each 
display page is allocated 4K and not the minimum 4000 bytes) and added to the 
character or attribute offset. The WINDOWS operating environment is set to 
page zero by its initialization routine, thus eliminating the additional complexity 
of having to take display pages into account. 


AVOIDING INTERFERENCE 


Even though displaying or reading a display character can be accomplished by 
simply reading from or writing directly to display memory, directly reading from 
and writing to an IBM CGA’s memory can cause snow to appear on the display. 
This snow is a result of the computer and the video controller accessing display 
memoiy at the same time. Fortunately, this is not a problem with the NfiDA and 
EGA display adapters. Furthermore, most non-IBM CGA adapters will not have 
this problem either. While this snowy effect is a problem, it can be easily over¬ 
come performing direct memory access during the video controller’s horizon¬ 
tal and vertical retrace intervals. 
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1 The IBM PC Display 


The Horizontal Retrace Interval 

Whenever the video controller is in the horizontal retrace interval, one byte of 
display memory can be safely accessed without unwanted snow appearing on the 
di^lay screen. Figure 1.6 shows that bit 0 of the video controller’s status register 
(port 03DAH) is set to 1 whenever the video controller is in the horizontal retrace 
interval. The following code fragment illustrates how this bit is used to success¬ 
fully display a byte in AH to the display memory address in ES:DI: 


Example 1.2 

mov 

dx,03dah 

;DXsStatus port address 


cli 


;Disable the interrupts 

horizontal!: 

in 

al,dx 

;Get the controller's status 


and 

al,1 

;Loop if already 


jnz 

horizontal! 

; in horizontal retrace 

horizontalZ: 

in 

al,dx 

;Get the controller's status 


and 

al,! 

;Loop till start 


jz 

horizontal2 

; of horizontal retrace 


mov 

es: [di] ,ah 

;Display the byte 


sti 


;Enable the interrupts 


X 

71 


B 

fl 

L 

T 

0 


Not Used 
Not Used 
Not Used 
Not Used 


Horizontal Retrace 
Light Pen Trigger 
Light Pen 
Vertical Retrace 


Figure 1.6 Video controller status repster (Port 03DAH) 
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The IBM PC Display 1 


Because the horizontal retrace occurs in such a short period of time, the previous 
program fragment disables the interrupts before attempting to access display 
memory. K the interrupts weren’t disabled, an interrupting routine (such as the 
^stem clock) could steal valuable execution speed from the previous algorithm. 
Thus, an ill-timed interrupt would defeat the algorithm’s purpose by causing snow 
to appear on the display. Additionally, the above code does not interrupt any 
horizontal retrace intervals that are alreacfy in progress. Attempting to access dis¬ 
play memory during a partial horizontal retrace interval would almost certainly 
result in unwanted display interference. 


The Vertical Retrace Interval 

Although the horizontal retrace interval is useful for reading and writing a limited 
number of display characters, the inherent overhead in the previously mentioned 
algorithm makes it too slow to use for reading and writing an extensive amount 
of display characters. Fortunately, the vertical retrace interval is very well-suited 
for displaying or reading a large number of characters in one operation. Figure 
1.6 shows that bit 3 of the video controller’s status register is set to 1 whenever 
the video controller is in its vertical retrace interval Whenever the video control¬ 
ler goes into the vertical retrace interval, large areas of display memory can be 
accessed by disabling the video controller, performing the necessary display 
memory accesses, and re-enabling the video controller. Because the video con¬ 
troller’s vertical retrace interval only lasts 1.25 milliseconds, the video memory 
accesses must be completed as fast as possible, or a flickering screen could result. 
When the low-level video functions are coded in assembly language, the WIN¬ 
DOWS operating environment totally eradicates screen flickering. The following 
code demonstrates how to move an entire screen display from the memory buff¬ 
er pointed to by DS;SI to the display memory pointed to ty ES:DI: 
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1 The IBM PC Display 


Example 1.3 



mov 

dx,3dah 

disable^cgal: 

in 

al^dx 


and 

al,8 


jz 

disable_cga1 


mov 

dl,0d8h 


mov 

al,25h 


out 

dx,al 

rep 

movsw 



push 

ds 


mov 

ax,40h 


mov 

ds,ax 


mov 

bx,65H 


mov 

al,[bx] 


out 

dx,al 


pop 

ds 


DX^Controller status port 
Get controller status 
Loop If not 
in vertical retrace 
DX^Control select register 
Disable 
the CGA 

Hove buffer contents 
Save DS 
Set DS to 

RON BIOS data segment 
BX=Ctr mode select value pointer 
AL=Ctr mode select value 
Reenable the CGA 
Restore DS 


A few points of interest in the above code fragment are the methods used to dis¬ 
able and re-enable the CGA. After determining that the video controller is in the 
vertical retrace interval, the CGA is disabled simpfy sending a value of 25H to 
the video controller’s select register (port 03D8H). As soon as the desired opera¬ 
tion has been fully carried out, the video controller is re-enabled by sending the 
previous controller select value. Fortunately, the ROM BIOS video driver stores 
the last value sent to the video controller select register at memory location 
0040:0065H; therefore, the above code retrieves the previously saved select value 
and sends it to the video controller to restore the controller’s previous state. 
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After examining the three basic text di^lay methods, you can see that the MS- 
DOS video services do not provide sufficient speed and versatility for the WIN¬ 
DOWS operating environment. Although the ROM-BIOS video services have 
sufficient versatility, their lack of speed in certain areas limits their usefulness 
when implementing certain time-critical functions. Therefore, the WINDOWS 
operating environment uses a mixture of the ROM BIOS video services and direct 
memory access techniques. Such functions as display initialization, cursor 
positioning, and turning the cursor on and off will use the ROM BIOS video ser¬ 
vices. Other operations, such as reading and writing large segments of the dis¬ 
play screen, filling large segments of the display so'een with one particular 
character, and displaying strings, will be handled by direct memory access techni¬ 
ques. The WINDOWS operating environment uses a mixture of these tools for 
the best possible blend of speed and programming ease. 
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2 Low-Level Assembly Language Functions 


As e^lained in Chapter 1, oritical WINDOWS functions must be coded using as¬ 
sembly language. Furthermore, a general-purpose keyboard input fonction must 
also b« coded in assemb^ language. Although the low-levd WINDOWS func¬ 
tions are coded using Mrly s^ple assembfy language programming teduiiques, 
their implementation is complicated by the way C calls an assembfy hmguage Ac¬ 
tion. liie C calling conventions require strict syntactic conform^ wi& the C 
compiler’s method for implementing function and variable names. Additionally, 
the C compiler’s method for passing parameters to a hmction and returning values 
from a function must be strictly ol^rved. 


FUNCTION AND VARIABLE NAMES 


Selecting a C function or variable name is a fairly straightforward task. For ex¬ 
ample, a C function that adds two integers and returns the result could be named 
ad^ts. It would be logical to assume that the name addints could also be used 
for a similar assembly language function’s name. Although addints would work 
correctly with some C compilers, most C compilers would not recognize addints 
as a legitimate function name. Indeed, the most commonly used naming conven¬ 
tion requires all function and variable names to begin with an _ (underscore) 
character. To further complicate matters, a few C compilers use'a naming con¬ 
vention that requires aU function and variable names to end with an character. 
Therefore, depending upon the C compiler, an assembly language addints func¬ 
tion could be named addints, _addints, or even addints_. Fortunately, it is quite 
simple to handle the different C compiler naming conventions by using condition¬ 
al assembly directives. 

In addition to adhering to the C compiler’s naming convention, an assembly lan¬ 
guage function or variable name must be made global before a C program can 
either call the function or reference the variable; therefore, aU global assembly 
language function and variable names are declared public. By using a public dec¬ 
laration, the linker will be able to correctly link the assembly language functions 
and variables to any C functions that use them. 
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Low-Level Assembly Language Functions 2 


PARAMETER PASSING 


To pass parameters to an assembly language function, C builds a stack frame. 
Upon entry to the assembfy language function, the stack frame consists of a return 
address (two bytes for near ca^ or four bytes for far calls) followed the first 
parameter and the last parameter. An example stack frame for the addints func¬ 
tion is presented in Figure 2.1. This stack frame assumes that addints uses a func¬ 
tion prototype of int far addints(int firstint, int secondint);. Because addints is 
dedared to be far, the C compiler puts a four-byte return address on the bottom 
of the stack. To reference the passed parameters, the assembly language func¬ 
tion first saves and then points register BP to the lx)ttom of the stack as follows: 


Example 2.1 


^addints 

proc 

far 



push 

bp 

;Save BP 


mov 

bPrSp 

;Point it to the stack frame 


Top of Stack 


Bottom of Stack 


sccoRdiat 


fjrstiat 


Return Addresa 


BP 


[BP + 81 
[BP + 6] 
[BP + 2] 
[BPl 


Figure 2.1 addints stack frame 











2 Low-Level Assembly Language Functions 


With BP pointing to the bottom of the stack frame, firstint can be referenced by 
using the offset 6[bp]. Remember, BP was pushed onto the stack below the four- 
byte return address; therefore, the first parameter is located six—not four—bytes 
from the bottom of the stack. Additionally, secondint can be referenced using 
an offset of 8[bp]. By accessing the parameters through the register BP offsets, 
the coding of addints can be continued as follows: 


Example 2.2 


mov ax,6Cbp] ;Get the first integer into AX 

add ax,8[bp] ;Figure the result 


RETURNING TO THE CALLING PROGRAM 


Now that addints has performed its function, it must return to the calling program 
with the calculated result. With most C compilers, a value is returned to the call¬ 
ing program by placing the return value in a CPU register or combination of CPU 
registers. With all of the C compilers supported in this book, integer values are 
returned in the AX register. Because the addints function’s result is already in 
the AX register, no further steps are necessary to pass the value back to the call¬ 
ing program. However, suppose the result ended up in the BX register instead of 
the AX register. To return the value to the calling program, the addints function 
would be required to execute a mov bx,ax instruction before returning control 
back to the calling program. 

In addition to preparing the return value, the addints function must clean up the 
stack before returning to the calling program. Because register BP was pushed 
onto the stack, it must be retrieved with a pop bp instruction. After retrieving 
register BP from the stack, the stack has been restored to its entry condition. 
Therefore, the addints function returns to the calling program by executing a ret 
instruction. The following is the remainder of the addints function’s code: 
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Example 2.3 


;Restore BP and the stack 
;Return to the calling program 


addints 


pop bp 

ret 

endp 


OTHER CONSIDERATIONS 


Although not required the addints function, many assembly language functions 
win require stack space for local variables. Local variable space is allocated by 
subtracting the required number of bytes from the stack pointer. Suppose the 
addints function had required local variable space for two integers (row and col). 
The following revision to the addints function would allocate the necessary space: 


Example 2.4 


addints proc far 

push bp 
mov bp,sp 
sub sp,4 


;Save BP 

;Point BP to the stack frame 
;Adjust stack for local variables 
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With the necessary local variable space allocated, the local variables can be 
referenced as negative offsets to the BP register. Thus, row and col could be 
referenced by the offsets -2[bp] and -4(bp]. It doesn’t matter which location is 
selected for a variable; however, a variable’s location must remain constant once 
it has been assigned. 

Because the stack pointer is moved the local variable space allocation, the as¬ 
sembly language function must deallocate the local variable space before attempt¬ 
ing to restore register BP. Deallocation of the local variable space is accomplished 
by a mov sp,bp instruction. Recall that before the local variable ^ace was allo¬ 
cated, registers BP and SP were pointing to the same memory location. There¬ 
fore, loading register SP with the pointer in register BP effectively removes the 
local variable space from the stack. The following code fragment shows how the 
addints function deallocates its local variable space before returning to the call¬ 
ing program: 


Example 2.5 


mov sp,bp ;Restore the stack pointer 

pop bp ;Restore BP 

ret ;Return to the calling program 

addints endp 
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One last consideration must be taken into account an assembfy language func¬ 
tion. Most C compilers require that certain CPU registers cannot be altered by 
an assembly language function; therefore, any unalterable registers used in an as¬ 
sembly language function must be saved on the stack at the start of the function 
and retrieved from the stack before returning to the calling program. Functions 
that do not require local variable space allocation should save the necessary 
registers just after the stack frame pointer has been set by the mov bp,sp instruc¬ 
tion. Retrieving the saved registers must occur before register BP is restored 
during the function’s ^ting routine. Functions that do require local variable 
space allocation shouldn’t save the required registers until after the local variable 
space allocation has occurred. According!^, all of the saved registers must be 
retrieved before the assembly language Action deallocates the local variable 
space. If the local variable space is deallocated first, the registers’ contents will 
!:«lost and erratic program execution is almost certain to result. 


THE 80286 AND OTHERS 


The 80286, 80386, V20, and V30 microprocessors all have additional assembly 
language instructions for handling stack frames. These instructions are the enter 
and leave instructions. The enter instruction automatically sets up register BP as 
the stack frame pointer and will allocate any necessary local variable space. The 
leave instruction will deallocate any previously allocated local variable space and 
restore register BP to its original value. Because the enter and leave instructions 
use less memory and are faster than their equivalents, they should be used when¬ 
ever the computer is known to have a supporting microprocessor; furthermore, 
using enter and leave greatly simplifies the implementation of the stack frame 
coding requirements. Ifre following program fragment illustrates how the addints 
function could be rewritten to take advantage of the enter and leave instructions; 
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2 Low-Level Assembly Language Functions 


Example 2.6 


_addints 

proc 

far 



enter 

0,0 

;Set up the stack frame 


mov 

ax,6 [bp] 

;AX=First integer value 

_addints 

add 

leave 

ret 

endp 

ax,8[bp] 

;Figure the result 
;Restore the stack 
;Return 


Note that the code in Example 2.6 does not allocate any local variable space. To 
allocate local variable space with the enter instruction, you need to indicate the 
required number of tytes with the first value in enter’s operand field. Thus, four 
bytes of local variable space could be allocated with an enter 4,0 instruction. 


SOURCE LISTING: video.asm 


Listing 2.1, video^ism, contains all of the low-level assembly language functions. 
This version of video.asm is compatible with most of the C compilers supported 
by the WINDOWS toolbox. Because not all of the C compilers support mixed 
memory models, other compiler-specific versions of video.asm are presented in 
Appendix C. To comply with the various naming conventions and to provide 
support for an 80286 version, video.asm makes extensive use of conditional 
assembly directives. 
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Listing 2.1: video.asm 


VIDEO.ASM - For the UINDOUS Toolbox 

Low-Level Input/Output Routines 


1 fdef cpu286 

.286 
endif 


ifndef POWERC 


non__ibm 

equ 

<_nonibnP' 

set_text_80 

equ 

<_settext80> 

fill_screen 

equ 

<_fiUscreen> 

set_attrib 

equ 

<_setattrib> 

save_screen 

equ 

<_savescreen> 

restore_screen 

equ 

<_restorescreen> 

draw_box 

equ 

<_drawbox> 

print_string 

equ 

<j>rintstring> 

wait^key 

equ 

<_waitkey> 

else 

non__ibm 

equ 

<_nonibm> 

set_text_80 

equ 

<settext80> 

f 1 ll^screen 

equ 

<fillscreen> 

set_attrib 

equ 

<setattrib> 

save_screen 

equ 

<savescreen> 

restore_screen 

equ 

<restorescreen> 

draw_box 

equ 

<drawbox> 

print_string 

equ 

<printstring> 

wait_key 

equ 

<waitkey> 

endif 

1 

; ROM BIOS Locations 


f 

bios_data 

equ 

40h 

crt_mode_set 

equ 

65h 


continued... 
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...from previous page 


DGROUP 

group 

_DATA 

_DATA 

segment 

word public 'DATA' 


assume 

ds:DGROUP 


ifdef 

aVERSION 

% 

public 

else 

non_ibm 


public 

endif 

non^ibm 

non^ibm 

dw 

1 

displayseg 

dw 

ObSOOh 

_DATA 

ends 


VIDEO^TEXT 

segment 

para public 'CODE' 


assume 

cs:VIDEO_,TEXT 


ifdef 

aVERSION 

% 

public 

set_text_80^fi1l_screen^set_attrib 

X 

public 

save_screen,restore_screen,drau_box 

X 

public 

else 

print_string,wai t_key 


public 

set_text_80,fi1l_screen,set_attrib 


public 

save_screen,restore_screen,drau_box 


public 

endif 

print_string,wait_key 


; Set to 80 X 25 text mode 


# 

set_text_80 proc 

far 


mov 

ah, 15 

Get the 

int 

lOh 

video mode 

cmp 

al,2 

Jump 

je 

settext801 

if 

cmp 

al,3 

it's 

je 

settext801 

already 

cmp 

al,7 

a 80 X : 


continued. 
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...from previous page 



je 

settextSOI 

video mode 


mov 

ax, 3 

Set it to 


int 

lOh 

80 X 25 color 

settextSOI: 

mov 

ax,0500h 

Set the 


int 

lOh 

page to 0 


mov 

ah,12h 

Check 


mov 

bl,10h 

for 


int 

lOh 

EGA 


cmp 

bl,10h 

Jump 


jne 

settext803 

if EGA 


mov 

ah,15 

Get the 


int 

lOh 

video mode 


cmp 

al,7 

Jump 


je 

settext802 

if MDA 


mov 

non_ibm,0 

Flag IBM CGA 


imp 

short settext803 

;Jump 

settextSOZ: 

mov 

dUpl8ysefl,0b000h ;Set the display segment address 

settext803: 

ret 


; Return 

set_text_80 

endp 




; Fill text 

window 



1 

fill_screen 

proc 

far 


rowl 

equ 

<6[bp]> 


coll 

equ 

<8[bp]> 


rou2 

equ 

<10[bp]> 


col2 

equ 

<12[bp]> 


char 

equ 

<14[bp]> 


att 

equ 

<16[bp]> 


rows 

equ 

<-2tbp]> 


cols 

equ 

<-4[bp]> 



ifdef 

cpu286 



enter 

4.0 

;Set up the stack frame 


else 




push 

lap 

;Save BP registers 


mov 

bp.sp 

;Point it to the stack 


sub 

sp,4 

;Reserve local space 


continued... 
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fillscreeni: 

rep 


fill screen 


endif 



push 

di 

Save DI 

mov 

ax,row1 

Figure 

mov 

bx,col1 

the 

call 

fig_vid_off 

video offset 

mov 

di,ax 

DIsVideo offset 

mov 

es,displayseg 

ES=Video segment 

mov 

ax,rou2 

Figure 

sub 

ax,row1 

the number 

inc 

ax 

of rows 

mov 

rows,ax 

Save it 

mov 

ax,col2 

Figure 

sub 

ax,coll 

the number 

inc 

ax 

of columns 

mov 

cols,ax 

Save it 

cld 


Flag increment 

mov 

al,byte ptr char 

;ALsDisplay character 

mov 

ah,byte ptr att 

AHsDisplay attribute 

call 

disable_cga 

Disable the CGA if necessary 

push 

di 

Save the video offset 

mov 

cx,cols 

CX=Number of columns 

stosw 

;Display the row 

pop 

di 

Restore the video offset 

add 

di,160 

Point it to the next row 

dec 

word ptr rows 

Loop 

jnz 

fillscreeni 

till done 

call 

enable_cga 

Enable the CGA if necessary 

pop 

di 

Restore DI 

i f def 

cpu286 


leave 

t 

Restore the stack 

else 



mov 

sp.bp 

Reset the stack pointer 

pop 

bp 

Restore BP 

endif 



ret 

t 

Return 

endp 




continued... 
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; Set attributes 


set^attrib 

proc 

far 


row1 

equ 

<6[bp]> 


coU 

equ 

<8[bp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12tbp]> 


att 

equ 

<14[bp]> 


rows 

equ 

<-2[bp]> 


cols 

equ 

<-4[bp]> 



ifdef 

cpu286 



enter 

4,0 

Set up the stack frame 


else 




push 

bp 

Save BP 


mov 

bp,sp 

Point it to the stack 


sub 

sp,4 

Save space for local data 


endif 




push 

di 

Save DI 


mov 

ax,row1 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DI=Video offset 


inc 

di 

Bump it to the first attribute 


mov 

es,displayseg 

ES=Video segment 


mov 

ax,rou2 

Figure 


sub 

ax,rowl 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,col1 

the number 


inc 

ax 

columns 


mov 

cols,ax 

Save it 


cld 


Flag increment 


mov 

al,byte ptr att 

AL~Display attribute 


call 

disable_cga 

Disable the C6A if necessary 

setattribi: 

push 

di 

Save the video offset 


mov 

cx,cols 

CX^Number of columns 


continued... 
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setattribZ: 

stosb 


;Set the attribute byte 


inc 

di 

;Bump the video pointer 


loop 

setattrib2 

;Loop till done 


pop 

di 

;Restore the video offset 


add 

di,160 

;Point it to the next row 


dec 

word ptr rows 

;Loop 


jnz 

setattribi 

; till done 


call 

enable_cga 

;Enable the CGA if necessary 


pop 

di 

;Restore DI 


ifdef 

cpu286 



leave 


;Restore the stack 


else 




mov 

sp.bp 

;Reset the stack pointer 


pop 

endif 

bp 

;Restore BP 


ret 


;Return 

set_attrib 

endp 




Save screen 


f 

save_screen 

proc 

far 


rowl 

equ 

<6tbp]> 


coll 

equ 

<8tbp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12[bp]> 


array 

equ 

<14[bp]> 


rows 

equ 

<-2[bp]> 


cols 

equ 

ifdef 

<-4[bp]> 

cpu286 



enter 

else 

4,0 

;Set up the stack frame 


push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


sub 

endif 

8P,4 

;Make room for local data 


push 

di 

;Save the 


push 

si 

; registers 


continued... 
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savescreeni: 
rep 


save screen 


mov 

ax,row1 

mov 

bx,col1 

call 

fig_vid_off 

mov 

si,ax 

mov 

ax,row2 

sub 

ax,row1 

inc 

ax 

mov 

rows,ax 

mov 

ax,col2 

sub 

ax,col1 

inc 

ax 

mov 

cols,ax 

cld 


call 

disable_cga 

push 

ds 

les 

di,array 

mov 

ds,displayseg 

push 

si 

mov 

cx,cols 

movsw 


pop 

si 

add 

si,160 

dec 

word ptr rows 

jnz 

savescreeni 

pop 

ds 

call 

enable_cga 

pop 

si 

pop 

di 

ifdef 

cpu286 

leave 


else 


mov 

sp.bp 

pop 

bp 

endif 


ret 


endp 



continued... 


Figure 

the 

video offset 
Sl-Video offset 
Figure 
the number 
of rows 
Save it 
Figure 
the number 
of columns 
Save it 

Flag increment 

Disable the CGA if necessary 
Save DS 

ES:OI=Array pointer 
DS:SIsVideo pointer 
Save the video offset 
CXsNumber of columns 
Save the row 
Restore the video offset 
Point it to the next row 
Loop 

till done 
Restore DS 

Enable the CGA if necessary 
Restore 
the registers 

;Restore the stack 

;Reset the stack pointer 
;Restore BP 

;Return 
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Restore screen 


restore^screen 

proc 

far 


rowl 

equ 

<6Cbp]> 


coU 

equ 

<8[bp]> 


row2 

equ 

<10Cbp]> 


col2 

equ 

<12Cbp]> 


array 

equ 

<14Cbp]> 


rows 

equ 

<-2Cbp]> 


cols 

equ 

ifdef 

<-4Cbp]> 

cpu286 



enter 

else 

4,0 

;Set up the stack frame 


push 

bp 

;Save BP 


mov 

bp,sp 

;Point it to the stack 


sub 

endif 

sp,4 

;Nake room for local data 


push 

di 

Save the 


push 

si 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DI=Video offset 


mov 

es,displayseg 

ESsVideo segment 


mov 

ax,rou2 

Figure 


sub 

ax,rowl 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,col1 

the number 


inc 

ax 

of columns 


mov 

cld 

cols,ax 

Save it 

Flag increment 


call 

disable_cga 

Disable the CGA if necessary 


push 

ds 

Save DS 


Ids 

si,array 

DS:SI=Array pointer 


continued... 
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restorescreeni: 

push 

di 

;Save the video offset 


mov 

cx^cols 

;CX=Mumber of columns 

rep 

tnovsu 


;Save the row 


pop 

di 

;Restore the video offset 


add 

Q. 

1 

;Point it to the next row 


dec 

word ptr rows 

;Loop 


jnz 

restorescreeni 

; till done 


pop 

ds 

;Restore DS 


call 

enable_cga 

;Enable the CGA if necessary 


pop 

si 

;Restore 


pop 

di 

; the registers 


ifdef 

cpu286 



leave 


;Restore the stack 


else 




mov 

sp.bp 

;Reset the stack pointer 


pop 

endif 

bp 

;Restore BP 


ret 


;Return 

restore^screen 

endp 




Draw box 


1 

draw__box 

proc 

far 


rowl 

equ 

<6tbp]> 


coll 

equ 

<8tbp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12[bp]> 


flag 

equ 

<14[bp]> 


att 

equ 

<16[bp]> 


rows 

equ 

<-2Ibp]> 


cols 

equ 

ifdef 

<-4[bp]> 

cpu286 



enter 

else 

4,0 

;Set up the stack 


push 

bp 

;Save BP 


mov 

bp,sp 

;Point it to the stack 


sub 

endif 

sp,4 

;Save space for local < 


continued... 
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...from previous page 


drawboxi: 


drawbox2: 

rep 


drawbox3: 


push di 

mov ax,row1 

mov hx^coll 

call fig_vid_off 

mov di,ax 

mov es,displayseg 

mov ax,row2 

sub ax,rou1 

dec ax 

mov rows,ax 

mov ax,col2 

sub ax,col1 

dec ax 

mov cols,ax 

cld 

mov ah,att 

call disable_cga 

push di 

mov al,201 

cmp word ptr flag,0 

je drawboxi 

mov al,218 

stosw 

mov al,205 

cmp word ptr flag,0 

je drawbox2 

mov al,196 

mov cx,cols 

stosw 

mov al,187 

cmp word ptr flag,0 

je drawbox3 

mov al,191 

stosw 

pop di 

add d{,160 


Save DI 
Figure 
the 

video offset 
DIsVideo offset 
ESsVideo segment 
Figure 
the number 
of rows - 2 
Save it 
Figure 
the number 
of columns - 2 
Save it 

Flag increment 
AHsDisplay attribute 
Disable the CGA if necessary 
Save the video offset 
ALsDouble line character 
Jump if 
double line 

ALsSingle line character 
Save the character/attribute pair 
ALsDouble line character 
Jump if 
double line 

ALsSingle line character 

CXsLine length 

Display the line 

;AL=Double line character 

Jump if 

! double line 

AL^Single line character 

Save the character/attribute pair 

Restore the video pointer 

Point it to the next row 


continued... 
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drawbox4: 

push 

di 

Save the video pointer 


mov 

alJ86 

AL^ouble line character 


cmp 

uord ptr flag,0 

Jump if 


je 

drauboxS 

double line 


mov 

al,179 

AL=Single line character 

drauboxS: 

stosu 


Save the character/attribute pair 


add 

di,cols 

Point to 


add 

d!,cols 

the right side 


stosw 


Save the character/attribute pair 


pop 

di 

Restore the video pointer 


add 

diJ60 

Point it to the next rou 


dec 

uord ptr rous 

Loop till the 


jnz 

draubox4 

sides are complete 


mov 

al,200 

AL^Double line character 


cmp 

uord ptr flag,0 

Jump if 


je 

draubox6 

double line 


mov 

al,192 

ALsSingle line character 

drawbox6: 

stosu 


Save the character/attribute pair 


mov 

al,205 

AL=0ouble line character 


cmp 

uord ptr flag,0 

Jump if 


je 

drauboxZ 

double line 


mov 

al,196 

AL*Single line character 

drawbox7: 

mov 

cx,cols 

CX=Line length 

rep 

stosu 


Display the line 


mov 

alJ88 

AL^Oouble line character 


cmp 

uord ptr flag,0 

Jump if 


je 

drauboxS 

double line 


mov 

aU217 

AL=Single line character 

drawboxS: 

stosu 


Save the character/attribute pair 


call 

enable^cga 

Enable the CGA if necessary 


pop 

di 

Restore DI 


ifdef 

cpu286 



leave 


;Restore the stack 


else 




mov 

sp.bp 

;Reset the stack pointer 


pop 

bp 

;Restore BP 


endif 




ret 


;Return 

draw_box 

endp 



continued... 
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Display string 


print^string 

proc 

far 


row 

equ 

<6[bp]> 


col 

equ 

<8[bp]> 


string 

equ 

<10[bp]> 



ifdef 

cpu286 



enter 

0.0 

;Set up the stack frame 


else 




push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


endif 




push 

si 

Save 


push 

di 

the registers 


mov 

ax,row 

Figure 


mov 

bx,col 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

Dl-Video offset 


mov 

es,displayseg 

ESsVideo segment 


cld 


Flag increment 


cmp 

word ptr non_ibm 

0 ;1BM CGA? 


push 

ds 

Save DS 


Ids 

si,string 

DS:SIsString pointer 


je 

print_string2 

Jump if IBM CGA 

print_string1: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

print_string6 

if done 


stosb 


Display the character 


inc 

di 

Bump the video pointer 


jmp 

print_string1 

Loop till done 

print_string2: 

mov 

dx,03dah 

DXsVideo status register 

print_string3: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

print_string6 

if done 


mov 

ah,al 

Put it in AH 


cli 


Disable the interrupts 

print_string4: 

in 

al,dx 

Loop 


and 

aM 

if in 


jnz 

print_string4 

horizontal retrace 


continued... 
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print_string5: 

in 

al,dx 

Loop 


and 

al,1 

if not in 


}z 

print^strings 

horizontal retrace 


mov 

e8:[di]|ah 

Display the character 


sti 


Reenable the interrupts 


inc 

di 

Bump the 


inc 

di 

video pointer 


jmp 

print_string3 

Loop till done 

print_string6: 

pop 

ds 

Restore 


pop 

di 

the 


pop 

si 

registers 


ifdef 

cpu286 



leave 


; Restore the stack 


else 




pop 

endif 

bp 

; Restore BP 


ret 


; Return 

print_string 

endp 




Get a Key 


f 

wait^key 

proc 

far 



mov 

ah^Olh 

;Has a key 


int 

16h 

; been pressed? 


jz 

wait_key 

;Loop if not 


mov 

ah,0 

;Get 


int 

16h 

; the key 


or 

al,al 

;Jump if 


jz 

wait_key1 

; extended key 


xor 

ah,ah 

;Erase the scan code 


Jmp 

short wait_key2 

;Jump 

wait_key1: 

xchg 

ah,al 

;AXsScan code 


inc 

ah 

;AXsScan code -i’ 256 

wait_key2: 

ret 


;Return 

wait_key 

endp 




continued.. 
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...from previous page 


Figure video offset 


fig_vid_off 


fig_vid_off 


; Disable CGA 
§ 

disable_cga 


disable_cga1: 


disable_cga2: 

disable_cga 


proc 

near 


push 

dx 

;Save DX 

push 

bx 

;Save the column 

dec 

ax 

;Decreinent the row 

mov 

bx,160 

;Figure the 

mul 

bx 

; row offset 

pop 

bx 

;Restore the column 

dec 

bx 

;Decrement it 

sal 

bx,1 

;Figure the column pair offset 

add 

ax,bx 

;AX=:Video offset 

pop 

dx 

;Restore DX 

ret 

endp 


;Return 


proc 

near 


cmp 

non_ibm,0 

;Jump if it 

jne 

disable_cga2 

; isn't an IBM CGA 

push 

ax 

;Save the 

push 

dx 

; registers 

mov 

dx,3dah 

;DXsVideo status port 

in 

al^dx 

;Uait 

and 

al,8 

; for 

jz 

disable_cga1 

; vertical retrace 

mov 

dl,0d8h 

;DXsVideo select register port 

mov 

al,25h 

;Disable 

out 

dx,al 

; the video 

pop 

dx 

;Restore 

pop 

ax 

; the registers 

ret 


;Return 

endp 




continued.. 
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Enable CGA 


enable_cga 

proc 

near 



cmp 

non_1bm,0 

Jump if it 


jne 

enable_cga1 

isn't an IBM CGA 


push 

ax 

Save 


push 

bx 

the 


push 

dx 

registers 


push 

ds 



mov 

ax,bios_data 

Set the 


nov 

ds,ax 

data segment 


MOV 

bx,crt_inode_set 

BXsVideo mode set value pointer 


MOV 

al,[bx] 

ALsVideo mode set value 


MOV 

dx,03d8h 

DX=Video select register port 


out 

dx,al 

Reenable the video mode 


pop 

ds 

Restore 


pop 

dx 

the 


pop 

bx 

registers 


pop 

ax 


enable_cga1: 

ret 


Return 

enable_cga 

endp 



VIDEO^TEXT 

ends 




end 
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Function Description: settexSO 

The settextSO function initializes the WINDOWS operating environment. Its im¬ 
plementation is illustrated the following pseudocode: 


if (current video mode I = 80x25 t&a mode) 
set video mode to 80x25 color text mode 
switch (display adapter) { 
case CGA: 

set jtonlbm flag to Indicate an IBM CGA 
case MDA: 

set display segment to OxbOOO 


As the pseudocode and the actual program code illustrate, the settextSO function 
could easily have been coded in C instead of assembly language; however, good 
programming practice dictates that related functions should be grouped into a 
sin^e program module. This keeps the linking requirements to a minimum and 
makes the WINDOWS toolbox easier to maintain. 


Function Description: fiilscreen 

The fUlscreen function fills a text window with a specified character/attribute pair. 
Its implementation is illustrated by the following pseudocode: 


figure the video offset 
figure the number of rows 
figure the number of columns 
disable the dl^lay adapter If ifs an IBM CGA 
for(i -0;i < number of rows; I + +) { 
for (I = 0; I < number of columns; i+ +) { 
display the character/attribute pair 

^ } 

re-enable die display adapter If It’s an IBM CGA 
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Function Description: setattrib 

The setattrib function sets an entire text window’s attributes to a specified at¬ 
tribute value. Its implementation is illustrated 1^ the following pseudocode: 


figure the video offset 

bump the video <^fset to point to the hrst attribute 
figure the number of rows 
figure the number of columns 
disable the display adapter If Its an IBM CGA 
for (I » 0; / < number of rows; 1+ +) { 
for (I = 0;j < numberof columns; j+ +) { 
set the position’s attribute 

} 

} 

re-^nablethedlaplayadapterlflt'san IBM CGA 


Function Description: savescreen 

The savescreen function saves the entire contents of a t^ window to a specified 
buffer area. Its implementation is illustrated by the following pseudocode: 


figure the video offset 
figure the number of rows 
figure the number of columns 
disable the display adapter If Its an IBM CGA 
for (I = 0; I < number throws;!++){ 
for (I - 0;J < number columns; J + +) { 
save a character/attribute pair In the buffer 

} 

} 

re-enable the display adapter If Its an IBM CGA 
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Function Description: restorescreen 

The restorescreen function redii^lays a previoiisly buffered text window. Its im¬ 
plementation is illustrated the following pseudocode: 


figure the video offset 
figure the number of rows 
figure the number of coiumns 
disabie the dispiay adapter if its an iBM CGA 
for (i - 0;i < number of rows; i++) { 
for (I - 0;j < number of coiumns; J + +) { 
dispiay a character/attribute pair 


re-enabie the dispiay adapter if its an IBM CGA 


Function Description: drawbox 

The drawbox function draws a border around a text window. Its implementation 
is illustrated by the following pseudocode: 


figure the video offset 
figure the number of interior rows 
figure the number of interior coiumns 
disabie the dispiay adapter if its an IBM CGA 
dispiay the upper left comer 
for(i = 0;i < number of interior coiumns; i + +) { 
dispiay a horizontal line character 

} 

dispiay the upper right comer 
for (I - 0;l < number (^Interior rows; I + +) { 
display the left side character 
display the right side character 

} 

display the lower left comer 
for (I = 0; I < number of Interior columns; I + +) { 
display a horizontal line character 

} 

disf^ay the lower right comer 

re-enable the display adapter If Its an IBM CGA 
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Function Description: printstring 

The printstring function displays a string at a specified display screen position. 
Its implementation is illustrated the following pseudocode: 


figure the video offset 
while (I (end string)) { 

If (display adapter 1 = IBM CGA) { 
displays character 

} 

else { 

while (In horizontal retrace); 
while (not In horizontal retrace ); 
disable the Interrupts 
displays character 
enable the Interrupts 


Function Description: waitkey 

The waitkey function waits for the operator to press a k^. Once a is pressed, 
the key’s ASCII code is returned for nonextended keys, or the key’s scan code -i- 
256 is returned for extended k^s. The waitkey function’s implementation is il¬ 
lustrated by the following pseudocode: 


while (key not pressed); 
get the key’s value 
If (extended key) 

retum(scan code + 256) 
else 

retum(ASCII code) 
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Function Description: fig_vid_off 

The fig vid_ofr function is used internally 1^ the other video functions to figure 
video oBsets. Its implementation is illustrated the following pseudocode: 


decrement the row number 

figure the row offset (row * 160) 

decrement the column number 

figure the column r^fset (column * 2) 

figure the video offset (row offset + column offset) 


Function Description: disabie.cga 

The disable cga function is used internally 1^ the other video functions to disable 
IBM CGA Hisplay adapters. Its implementation is illustrated 1^ the following 
pseudocode: 


If (dl^lay edapter = = IBM CG^ { 
while (not In vertical retrace); 
disable the CGA 

} 


Function Description: enabie_cga 

The enablej^ function is used internally by the other video functions to re¬ 
enable a pr^ously disabled IBM CGA. Its implementation is illustrated by the 
following pseudocode: 


If (display adapter = = IBM CGA) { 
enable the CGA 

} 
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3 C Input/Output Functions 


Althougjhi Chapter 2 presented a diverse collection of low-level input/output func¬ 
tions, the WINDOWS toolbox implementation requires a numba* of other low- 
level input/output functions before it can support the higher-levd window and 
menu Actions. Unlike the assembfy language code med in Chapter 2, the 
remainder of the low-level input/output functions can be complete^ coded using 
C. Thus, the remaining low-level input/output functions are easier to code and 
offer a much higher degree of portability. 


HEADER FILE LISTING: windows.h 


Listing 3.1, windowsJi, is the WINDOWS toolbox header file. Like most other C 
header files, the chief purpose of windows.h is to define constants, global vari¬ 
ables, macros, and function prototypes. To achieve correct program compilation, 
windows.h is included in all of the l^^NDOWS programs. Additionally, windows.h 
should be included in any application program that uses the WINDOWS toolbox. 

In addition to performing the normal header file tasks, windows.h performs a very 
important secondary task of addressing a number of portability problems: un¬ 
defining the far keyword for C compilers that don’t support mixed memory 
models; defining the max macro for C compilers that don’t include it in stdlib.h; 
defining the ANSI versions of va_list, va_start, va_arg, va_end, and atexit; and 
defining constants, macros, and function proto^eTfor C compilers that support 
hardware error trapping. Without the foundation windows.h provides, portability 
across all of the C compilers that WINDOWS supports would be an impossible 
task. 
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Listing 3.1: windows.h 


* windows.h 

* 


For the WINDOWS Toolbox 
Definition File 


/* undefine far if necessary V 
#ifdef DC88 
#define far 
#endif 


#ifdef ECOC88 
#define far 
#endif 


#ifdef LATTICEC 
#define far 
#endif 


#ifdef ZORTECHC 
define far 
#endif 

/* logic constants */ 

#define TRUE 1 
#define FALSE 0 

/* display type constants */ 
#define ^IBM^CGA 0 
#define _NONIBM_CGA 1 

/* border line constants */ 
#define _DOUBLE_LINE 0 
#define _SINGLE_LINE 1 
#define NO BORDER 2 


continued... 
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...from previous page 

/* window constants ♦/ 

#define _DRAU 1 
#define _NO_DRAW 0 
#clef!ne _UP 0 
#define _OOUN 1 
#clefine _LEFT 2 
#define _RIGHT 3 
#define _UPA 4 
#define _DOUNA 5 
#define ^LEFTA 6 
#define _RIGHTA 7 

/* boolean data type */ 
typedef int boolean; 

/* menu structure definitions */ 
typedef struct 

char *string; 
int hotkey; 
void (*function)(); 
void (*help)(); 

> MENU; 

typedef struct C 
char ^heading; 
int hotkey, number; 

MENU *mptr; 

> MENU.HEAD; 

/* window structure definition */ 
typedef struct C 

int row1, coU, row2, col2; 
char *videoarray; 

> WINDOW ; 

/* external variable declarations V 
extern int _nonibm; 

extern int _menu_att, _menu_hotkey, _menu_highlight; 

continued... 
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/* macro definitions */ 

#define clearone(row, col, att) fiUone(row, col, ' att) 
#define clearscreenCrowl, coll, row2, col2, att)\ 

fillscreen(row1, coll, row2, col2, • •, att) 

#ifndef max 

#clefine max(a, b) (<(a) > (b)) ? (a) : <b)) 

#endif 

#ifclef EC0C88 
typedef char *va_list; 

^define va_start(ap,v) ap = (va_list)&v + sizeof(v) 

#define va_arg(ap,t) ((t *)(ap += sizeof(t)))[-1] 

#define va_end(ap) ap » NULL 
#endif 

#ifdef LATTICEC 
typedef char *va_list; 

#define va_start(ap,v) ap = (va_list)&v + sizeof(v) 

#define va_arg(ap,t) ((t *)(ap += sizeof(t)))E-1] 

#define va_end(ap) ap - NULL 
#define atexit onexit 
#endif 

/* function prototypes V 
WINDOW *close_window(WINDOW *); 
void cursoroffCvoid); 
void cursoronCvoid); 

int dialog_menu(int, int, int, MENU *, int, ...); 
void display_error(char *); 
void far drawbox(int, int, int, int, int, int); 
void draw_window(int, int, int, int, int, int, ...); 


void fillone(int, int, int. 

int); 



void far fillscreen(int, int 

, int. 

int. 

int, int); 

void getcurposCint *, int ♦, 

int *, 

, int 

*); 

void horizontal_bar(WINDOW * 

, int. 

int. 

int); 

void hotstring(int, int, int 

, int. 

char 

*); 

WINDOW *open_window(int, int 

, int. 

int. 

int, ...); 

int popup(int, MENU *, int. 

int); 




continued... 
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void printcenterCint, int, char *); 

void printone(int, int, int); 

void far printstring(int, int^ char far *); 

void puUdown_bar(int, MEMU^HEAD int); 

int puUdown(int, MENU_HEAD int, int, void (*)()); 

void far restorescreen(int, int, int, int, char far *); 

void save_initial_video(void); 

void far savescreen(int, int, int, int, char far *); 

void scroU_window(UINDOU *, int, int, int); 

void far setattrib(int, int, int, int, int); 

void setone(int, int, int); 

void setcurposCint, int); 

void setcursorCint, int); 

void far settext80(void); 

void vertical_bar<WINDOW *, int, int, int); 

int far waitkey(void); 

#ifdef MICROSOFTC 
#define HARDERROR 

void far error_handler(unsigned, unsigned, unsigned far *); 
#endif 

#ifdef POWERC 
#define HARDERROR 

void far error_handIer(unsigned, unsigned, unsigned, unsigned) 

#define _harderr harderr 

#define _hardresume hardresume 

#define ^HARDERR.IGNORE 0 

#define _HARDERR_RETRY 1 

#define _HARDERR_ABORT 2 

#endif 

#ifdef TURBOC 
#define HARDERROR 

void far error_handler(unsigned, unsigned, unsigned, unsigned) 
#define _harderr harderr 
#define _hardresume hardresume 
#define _HARDERR_IGNORE 0 

continued... 
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Mefine _HAROERR_RETRr 1 
^define _HARDERR_ABORT 2 
#endif 


/* redefine far if necessary V 
#ifdef LATTICEC 
#define far far 
#endif 

#ifdef ZORTECHC 
#define far far 
#endif 


FUNCTION DEFINITIONS 


Before the first WINDOWS C program is listed, the issue of function definition 
portability must be addressed. There are two basic types of C function defini¬ 
tions: the old-fashioned definition type and the newer ANSI definition type. If 
the old-fashioned definition type is u^, function parameters are defined after 
the function declaration as foUows: 


Example 3.1 

void oldstyleCa, b, c) 
double a, b, c; 

/* function body goes here */ 

> 
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The ANSI definition type includes the parameter definitions right in the function 
declaration as follows: 


Example 3.2 

void newstyIe(double a, double b, double c) 
C 

/* function body goes here */ 

> 


Although the ANSI definition type is today’s preferred method for defining func¬ 
tions, the LATTICE C compiler only supports the old-fashioned defmition type. 
Accordingly, the WINDOWS toolbox programs only use the old-fashioned defini¬ 
tion type. 

Another function definition problem can arise whenever a function that allows a 
variable number of parameters is defined. Although some C compilers allow el¬ 
lipses (...) in function definitions, many of the C compilers the WINDOWS tool¬ 
box supports only allow ellipses in function prototypes; therefore, the WINDOWS 
toolbox programs only use ellipses in function prototypes and not in the actual 
function definitions. This allows the WINDOWS tooltox programs to be easily 
compiled with a minimum number of conditional compilation statements. 


SOURCE LISTING: windio.c 


Listing 3.2, windiox, contains all of the low-level C input/output functions. These 
functions support such diverse operations as turning the cursor on and off; 
positioning the cursor; displaying single characters, attributes, and character/at- 
tribute pairs; and centering strings. 


50 



C Input/Output Functions 3 


Listing 3.2: windio.c 

/**************************************************************************** 

* windio.c - For the WINDOWS Toolbox 

* Low-Level Input/Output Routines 
******************♦********************♦************************************/ 

#include <stdio.h> 

#include <dos.h> 

#include <string.h> 

#include “windows.h" 

#ifdef DC88 
struct WORDREGS < 

unsigned int ax; 
unsigned int bx; 
unsigned int cx; 
unsigned int dx; 
unsigned int si; 
unsigned int di; 
unsigned int cflag; 

>; 


struct BYTEREGS < 

unsigned char al, ah; 
unsigned char bl, bh; 
unsigned char cl, ch; 
unsigned char dl, dh; 

>; 


union REGS i 

struct WORDREGS x; 
struct BYTEREGS h; 

>; 


extern unsigned int _rax, _rbx, _rcx, _rdx, _rsi, _rdi, _res, _rds; 
extern unsigned char _carryf, _zerof; 
void _doint<char inum); 

continued... 
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int int86(int inun, union REGS *iregs, union REGS *oregs) 
C 

_rax = iregs.X'>ax; 

_rbx = iregs.x->bx; 

_rcx = iregs.x->cx; 

_rdx = iregs.x->clx; 

_rsi = iregs.x->si; 

_rdi = iregs.x->di; 

_doint(inum); 
oregs.x->di = _rdi; 
oregs.x->si = _rsi; 
oregs.x->dx = _rdx; 
oregs.x->cx = _rcx; 
oregs.x->bx = _rbx; 
oregs.x->ax = _rax; 
oregs.x->cflag = _carryf; 
return(_rax); 

> 

#endif 

static void initcur(void); 

static int cursorstart * -1, cursorend ® -1; 

void cursoroffO 
i 

union REGS regs; 

initcurO; 
regs.h.ah » 1; 
regs.x.cx » 0x2000; 
int86(0x10, &regs, &regs); 

> 


continued... 


52 



C Input/Output Functions 3 
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void cursoronO 

< 

union REGS regs; 

initcurO; 
regs.h.ah =1; 
regs.h.ch = cursorstart; 
regs.h.cl = cursorend; 
int86(0x10, &regs, &regs); 

> 

void setcurposCrow, col) 
int row; 
int col; 
i 

union REGS regs; 

regs.h.ah » 2; 
regs.h.bh » 0; 
regs.h.dh = --row; 
regs.h.dl * --col; 
int86(0x10, &regs, &regs); 

> 

void setcursorCcstart, cend) 
int cstart; 
int cend; 

C 

cursorstart = cstart; 
cursorend = cend; 
cursoronO; 

> 

void getcurpos(row, col, cstart, cend) 

int *row; 

int *col; 

int Restart; 

int *cend; 

continued... 
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i 

union REGS regs; 

pegs.h.ah = 3; 
regs.h.bh = 0; 
int86(0x10, &regs, &regs); 
♦row = ++regs.h.dh; 

♦col = ++regs-h.dl; 

♦cstart = regs.h.ch; 

♦cend = regs.h.cl; 

> 

void filloneCrow, col, chr, att) 

int row; 

int col; 

int chr; 

int att; 

C 

union REGS regs; 

setcurposCrow, col); 
regs.h.ah = 9; 
regs.h.al = chr; 
regs.h.bh = 0; 
regs.h.bl = att; 
regs.x.cx =1; 
int86(0x10, &regs, &regs); 

> 

void printoneCrow, col, chr) 
int row; 
int col; 
int chr; 

< 

union REGS regs; 

continued... 
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...from previous page 

setcurposCrow, col); 
pegs.h.ah = 10; 
regs.h.al ~ chr; 
regs.h.bh = 0; 
regs.x.cx = 1; 
int86<0x10, &regs, &regs); 

> 

void setone(row, col, att) 
int row; 
int col; 
int att; 

< 

union REGS pegs; 

setcupposCrow, col); 
pegs. h. ah = Sc¬ 
rags.h.bh s 0; 
int86(0x10, &regs, &pegs); 
regs.h.ah = 9; 
regs.h.bl - att; 
regs.x.cx » 1; 
int86(0x10, &regs, &pegs); 

> 

void printcenter(row, col, string) 
int row; 
int col; 
char *string; 

C 

printstring(row, col - (strlen(string) » 1), string); 

> 

static void initcurO 
C 

union REGS regs; 


continued... 
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if (cursorstart « -1 && cursorend == -1) < 
regs.h.ah s 3; 
regs.h.bh » 0; 
int86(0x10, &regs, &regs); 
cursorstart » regs.h.ch; 
cursorend = regs.h.cl; 

> 

> 


Function Definition: int86 

The int86 function calls 8086 INTs. Because the DeSmet DC88 C compiler is the 
only C compiler that doesn’t include an int86 function in its run>time library, int86 
is conditionally compiled onfy for the DeSmet DC88 C compiler. Its implemen¬ 
tation is illustrated by the following pseudocode: 


load all of the register variables with their In^ equivalents 
call the _dolnt function 

load all of the Int86 equivalents with their register variable equivalents 

load the carry flag 

return the value In register AX 


Function Definition: cursoroff 

The cursoroff function turns the blinking cursor character off. Its implementa¬ 
tion is illustrated by the following pseudocode: 


If (called for the first time) 

save the cursor character’s starting and ending lines 
use the ROM BIOS to turn the cursor off 
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Function Definition: cursoron 

The cursoron function turns the blinking cursor character on. Its implementation 
is illustrated by the following pseudocode: 


if (called for the first time) 

save the cursor character's storting and ending lines 
use the ROM BIOS to turn tiie cursor on 


Function Definition: setcurpos 

The setcurpos function sets the display screen’s cursor position. Its implementa¬ 
tion is illustrated by the following pseudocode: 


decrement the row 

decrement the column 

use the ROM BIOS to position the cursor 


Function Definition: setcursor 

The setcursor function sets the cursor character’s starting and ending lines. Its 
implementation is illustrated by the following pseudocode: 

save the cursor character’s new starting line 
save the cursor character’s new ending line 
use the cursoron function to perform the action 


Function Definition: getcurpos 

The getcurpos function retrieves the cursor’s row position, column position, start¬ 
ing line, and ending line. Its implementation is illustrated by the following pseu¬ 
docode: 


use the ROM BIOS to get the cursor values 
bump the row position 
bump the column position 
return the cursor values 
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Function Definition: fiiione 

The fillone function displays a character/attribute pair at a specified display 
screen position. Its implementation is illustrated by the following pseudocode: 


set the cursor position 

use the ROM BiOS to dispiay the character/attribute pair 


Function Definition: printone 

The printone function displays a character at a specified display screen position. 
Its implementation is illustrated by the following pseudocode: 


set the cursor position 

use the ROM BiOS to dispiay the character 


Function Definition: setone 

The setone fimction sets the attribute for a specified display screen position. Its 
implementation is illustrated by the following pseudocode: 


set the cursor position 

use the ROM BiOS to get the position’s character 
use the ROM BiOS to display the character/attribute pair 


Function Definition: printcenter 

The printcenter function centers a string on a specified display screen position. 
Its implementation is illustrated by the following pseudocode: 


use the printstring function to dispiay the string at the 
position defined by (column - (length of the string/ 2)) 
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Function Definition: initcur 

The initcur function saves the initial cursor character’s starting and ending lines. 
The initcur function is used internally only by the cursoroff and cursoron func¬ 
tions. Its implementation is illustrated by the following pseudocode: 


if (the initial values haven’t been saved) { 
use the ROM BIOS to get the cursor values 
save the cursor character's starting line 
save the cursor character’s ending line 

} 
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4 Dynamic Window Functions 


Chapters 2 and 3 present an assortment of low-level input/output functions. By 
using these low-level input/output functions as a set of basic building blocks, this 
chapter is able to present the C functions for dynamically opening and closing dis¬ 
play screen windows. Additionally, this chapter features C functions for drawing 
windows, displaying horizontal and vertical scroll bars, moving blocks of memory, 
scrolling windows, and saving the initial display screen’s contents. So you will bet¬ 
ter understand how these functions operate, a text window’s components and the 
C dynamic memory management functions are discussed before the d 3 mamic win¬ 
dow function’s source code is introduced. 


ATEXTWINDOW’S COMPONENTS 


Figure 4.1 illustrates the many components that are used to construct a text win¬ 
dow. Because many of these components are optional features, a text window 
may only require a few key components to generate its desired appearance on the 
display screen. A more detailed explanation of these components is as follows: 


• Upper Left Coordinates and Lower Right Coordinates: The upper left 
and lower right coordinates are used to define a text window’s size and 
screen position. A t^ window can be as small as a single character or as 
large as the whole screen. 

• Border: The WINDOWS toolbox supports both single-lined and double- 
lined window borders. Note: Borders are an optional text window com¬ 
ponent. 

• Horizontal Scroll Bar: A horizontal scroll bar is used by the text window 
to indicate the cursor’s current line position. Because a text window may 
not be wide enough to display an entire line, a horizontal scroll bar 
provides a very useful visual aide for indicating the displayed portion’s 
relation to the whole line. Note: Horizontal scroll bars are an optional 
text window component. 

• Vertical Scroll Bar: A vertical scroll bar is used by the text window to in¬ 
dicate the cursor’s current file position. Because a text window may not 
be tall enough to display an entire file, a vertical scroll bar provides a use¬ 
ful visual aid for indicating the displayed portion’s relation to the whole 
file. Note: Vertical scroU bars are an optional text window component. 
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Upper Left Corner 


I— Vertical Scroll Bar 


I 



Scroll Character 


Horizontal Scroll Bar 


-' Scroll Character —' 


Lower Right Corner 


Figure 4.1 A text window 


C DYNAMIC MEMORY MANAGEMENT FUNCTIONS 


Before it actually displays a text window, the WINDOWS toolbox must first save 
the current text window’s portion of the display screen. If the current contents of 
the tect window are not saved, the WINDOWS toolbox would not be able to 
properly restore a closed text window’s portion of the display screen. Because the 
WINDOWS operating environment can’t possibly know in advance the number 
and size of an application program’s windows, the WINDOWS toolbox makes ex¬ 
tensive use of the C dynamic memory management functions to obtain and release 
text window buffer space. 

The four most important C cfynamic memory management functions are the mal- 
loc, calloc, realloc, and free functions. The malloc function is used to cfynamical- 
ly allocate a memory block. The following program demonstrates how malloc 
might be used to allocate space for a 100-element array of type int: 
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Example 4.1 

#inclucle <stdio.h> 

#include <stdlib.h> 

int *intarray; 

mainO 

C 

/* Allocate space for a 100 element integer array V 
intarray * (int *)malloc(100 * sizeof(int)); 
if (intarray == NULL) 

printfC'Not enough memory to allocate the request array\n"); 

else 

printf(*'A 100 element integer array has been allocated space\n”); 

exit(O); 

> 


Example 4.1 iUustrates that malloc returns a NULL pointer if it is unable to allo¬ 
cate an adequate amount of memory space; therefore, allocation errors can be 
easily trapped ty performing a NULL pointer check. 

The calloc function allocates a memory block for an array of n elements, each with 
a length of size lytes. Furthermore, each of the array elements is initialized with 
a value of zero. The program in Enimple 4.2 demonstrates how the calloc func¬ 
tion might be used to locate memory ^ace for a 50-element array of type double: 
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Example 4.2 

#inclucle <stdio.h> 

#inclucle <stdlib.h> 

double *dblarray; 

mainO 

C 

/* Allocate memory space for 50 element double array V 
dblarray = (double *)calloc(50, sizeof(double)); 
if (dblarray NULL) 

printf(”Insufficient memory space\n"); 

else 

printf("Allocation was successfully completed\n"); 

exit(O); 

> 


Like the malloc function, the calloc function returns a NULL pointer to indicate 
a memory space allocation error. 

The realloc function changes the size of a previously allocated memory block. 
Furthermore, most C compilers will automatically call the malloc function if a 
NULL pointer is passed to the realloc function. Sample 4.3 demonstrates how 
the reaUoc function might be used to change a previously allocated array’s size: 
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Example 4.3 

#inclucle <stdio.h> 

#include <stdlib.h> 

int *intarray; 

mainO 

i 

/* Allocate memory space for a 50 element integer array */ 
intarray = (int *)malloc(50 * 8izeof<int)>; 
if (intarray == NULL) C 

printf("Initial memory allocation failed\n”); 
exit(O); 

> 

/* Reallocate the arrays memory space V 

intarray = (int *)realIoc(intarray, 100 * sizeof(int)); 

if (intarray == NULL) 

prjntf("The reallocation attempt failed\n“); 

else 

printf("The reallocation was successful\n"); 

exit(O); 

> 


Like the malloc and calloc functions, the realloc function returns a NULL pointer 
to indicate a memory allocation error. 

The free function releases a previously allocated memory block. The program in 
&[ample 4.4 demonstrates how the free function might be used to deallocate a 
25-element array of type float: 
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Example 4.4 

#include <stdio.h> 

#include <stdlib.h> 

float *fltarray; 

mainO 

i 

/* Allocate space for the 25 element float array */ 
fltarray = (float *)malloc(25 * sizeof(float)); 
if (fltarray == NULL) < 

printf("Memory allocation failed\n"); 
exit(l); 

> 

/* Release the array's allocated memory space */ 

free(fltarray); 

exit(O); 

> 


With the dynamic memory management functions shown in ^cample 4.4 at its dis¬ 
posal, the WINDOWS toolbox can dynamically open and close text windows. 
Before it displays a text window, WINDOWS allocates a memory block large 
enough to hold the current contents of the text window. After successfully allocat¬ 
ing the memory block, WINDOWS saves the text window’s contents by using the 
savescreen function (see Chapter 2). When it is time to close the text window, 
WINDOWS restores the text window’s former contents by using the restorescreen 
function (see Chapter 2). Redisplaying the former contents is followed by releas¬ 
ing the text window’s dynamically allocated memory block. 


SOURCE LISTING: window.c 


Listing 4.1, windows, presents the functions for dynamically opening and closing 
text windows, drawing text windows, displaying horizontal and vertical scroll bars, 
moving blocks of memory, scrolling text windows, and saving the initial display 
screen’s contents. 
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Listing 4.1: window.c 

* window.c - For the WINDOWS Toolbox 

* Dynamic Window Routines 

#include <stdio.h> 

#include <stdlib.h> 

#ifndef EC0C88 
#ifndef LATTICEC 
#include <stdarg.h> 

#endif 

#endif 

#include "windows.h” 

static void reset_initial_video(void); 

#ifdef UATCOMC 

void draw_window(row1, coll, row2, col2, watt, bflg, ...) 
#else 

void draw_window(row1, coll, row2, col2, watt, bflg) 
#endif 

int rowl, coll; 
int row2, col2; 
int watt; 
int bflg; 

C 

int batt; 

va_list arg^marker; 

va_start(arg_marker, bflg); 
clearscreenCrowl, coll, row2, col2, watt); 
if (bflg != _NO_BORDER) C 

batt = va_arg(arg_marker, int); 
drawbox(row1, coll, row2, col2, bflg, batt); 

> 

> 

continued... 


68 



Dynamic Window Functions 4 


...from previous page 

void draw_window(int, int, int, int, int, int, 

#ifdef UATCOHC 

WINDOW *open_window(row1, coll, row2, col2, draw, ...) 

#else 

WINDOW *open_window(row1, coll, row2, col2, draw) 

#endif 

int rowl, coll; 
int row2, col2; 
int draw; 
i 

int watt, bflg, batt; 
va_list arg_marker; 

WINDOW *window; 

va_start(arg_marker, draw); 
window s mallocCsizeof(WINDOW)); 
if (window NULL) i 

printf(“Not enough memory to open window\n“); 
exitd); 

> 

window->row1 = rowl; 
window->col1 = coll; 
window’>row2 « row2; 
window->col2 ^ col2; 

window->videoarray = malloc((col2 - coU +1) * 2 * (row2 - rowl 1)); 
if (window->videoarray ~ NULL) i 

printf(**Not enough memory to open window\n”); 
exitd); 

> 

savescreen(row1, coll, row2, col2, window->videoarray); 
if (draw) C 

watt = va_arg(arg_marker, int); 
bflg s va_arg(arg_marker, int); 
if (bflg « ^NO^BORDER) 

draw_window(row1, col1, row2, col2, watt, __NO_BORDER); 

continued... 
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else C 

batt = va_arg(arg_inarker, int); 

draw_window(rowl, coll, row2, col2, watt, bflg, batt); 

> 

> 

return(window); 

> 

WINDOW *open_window(int, int, int, int, int, ...); 

WINDOW *close_window(window) 

WINDOW* window; 

i 

if (window NULL) i 

restorescreen(window->row1, window->col1, window->row2, 
window->col2, window->videoarray); 
f ree(window->videoarray); 
freeCwindow); 

> 

return(NULL); 

> 

#ifdef DC88 
#define DEFMEHMOVE 
#endif 

#ifdef LATTICEC 
#define DEFHEHHOVE 
#endif 

#ifdef DEFMENMOVE 

static char *inemmove(dst, src, n) 

char *dst; 

char *src; 

unsigned int n; 

C 

continued... 
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char *beg = src; 

if (src +n > dst) i 
src += n; 
dst += n; 
while (n--) 

*--dst = ♦--src; 

> 

else 

while (n--) 

♦dst++ s *src++; 

return(beg); 

> 

#endif 

void scroll_window(window, num, dir, att) 

WINDOW ♦window; 

int num; 

int dir; 

int att; 

C 

int i, rowl, coll, row2, col2, rows, cols; 

char ♦videoarray; 

switch (dir) C 
case _UP: 
case _DOWN: 
case _LEFT: 
case _RIGHT: 

rowl = window->row1 +1; 
coU = window’>col1 + 1; 
row2 = window->row2 - 1; 
col2 = window->col2 - 1; 
break; 
case _UPA: 
case _DOWNA: 
case _LEFTA: 

continued... 
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case _RIGHTA: 

rowl * winciow’>row1; 

coll s windou->col1; 

rou2 - wfndow->row2; 

col2 * window->col2; 

> 

cols = (col2 - coll + 1) ♦ 2; 

rows = row2 - rowl + 1; 

if ((videoarray = iiialloc(cols * rows)) == NULL) {. 

printf(”Not enough memory to allocate scroll buffer\n”); 
exit(l); 

> 

savescreen(row1, coll, row2, col2, videoarray); 

switch (dir) C 
case _UP: 
case _UPA: 

for (i a rowl + num; i < row2 + 1; i++) 

meiiinove(videoarray + (i - num - row1) * cols, 
videoarray + (i - rowl) * cols, cols); 

break; 
case .DOWN: 
case .DOWNA: 

for (i a row2; i >= rowl + num; i--) 

meiiinove(videoarray + (i - row1) * cols, 

videoarray + (i - num - rowl) * cols, cols); 

break; 
case .LEFT: 
case .LEFTA: 

for (i a rowl; i <a row2; i++) 

meiiiiK>ve(videoarray + (i - row1) * cols, 

videoarray + (i - rowl) * cols + num * 2, 
cols - num * 2); 

break; 

default: 


> 


for (i a rowl; i <a row2; i+-»‘) 

meiiinove(videoarray + (i - rowl) * cols + num * 2, 

videoarray + (i - rowl) * cols, cols - num * 2); 


continued... 
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restorescreenCrowl, coll, row2, col2, videoarray); 
if (att) {. 

switch (dir) {. 
case _UP: 
case _UPA: 

clearscreen(row2 - num + 1, coll, row2, col2, att); 
break; 
case _DOUN: 
case _DOWNA: 

clearscreen(row1, coll, rowl + num - 1, col2, att); 
break; 
case ^LEFT: 
case _LEFTA: 

clearscreen(row1, col2 - num + 1, row2, col2, att); 
break; 
default: 

clearscreen(row1, coll, row2, coll num - 1, att); 

> 

> 

free(videoarray); 

> 

void vertical_bar(window, current, total, att) 

WINDOW *window; 
int current; 
int total; 
int att; 

< 

int marker; 

if (total == 0) 
current * 0; 
total s 1; 

> 

fillone(window->row1 + 1, window->col2, 24, att); 
fillscreen(window->row1 + 2, window->col2, window->row2 - 2, 
window->col2, 177, att); 

continued... 
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fiUone(window->row2 - 1, window->col2, 25, att); 

marker = <int)(<long)(window->row2 - window->row1 - 4) * current / total 
+ window->row1 +2); 

fi Uone(marker, window->col2, ^76, att); 

> 

void horizontal_bar(window, current, total, att) 

WINDOW *window; 
int current; 
int total; 
int att; 
i 

int marker; 

if (total == 0) C 
current = 0; 
total = 1; 

> 

fillone(window->row2, window->col1 + 1, 27, att); 
fillscreen(window'>row2, window->coll + 2, window->row2, 
window->col2 - 2, 177, att); 
fillone(window->rOw2, window->col2 - 1, 26, att); 

marker = (int)((long)(window->col2 - window->col1 - 4) * current / total 
+ window->col1 + 2); 

fillone(window->row2, marker, 176, att); 

> 

static WINDOW *window; 

static int srow, scol, sstart, send; 

void save_initial_video() 
i 

settextSOO; 

getcurpos(&srow, &scol, &sstart, &send); 
cursoroffO; 

window = open^windowd, 1, 25, 80, _DRAW, 7, __NO_BORDER); 
atexi t < reset_i ni t i a l__vi deo); 

> 


continued... 
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Static void reset_initial_video() 
C 

cIose^window(window); 
setcurposCsrow, scol); 
setcursor(sstart« send); 

> 


Function Definition: draw.window 

The draw window function draws a text window onto the display screen. Its im¬ 
plementation is illustrated by the following pseudocode: 


clear the t&a window’s portion of the display screen 
If (border Is requested) 

draw the requested bonier type 


Function Definition: open.window 

The open_window function dynamically opens a text window. Its implementation 
is illustrated by the following pseudocode: 


allocate memory for a WINDOW structure 
If (memory allocation failed) { 
display an error message 
abort the program 

} 

save the window’s coordinates 
allocate a memory block for the window’s current contents 
If (memory allocation failed) { 
display an error message 
abort the program 

} 

save the window’s current contents 
If (draw window Is requested) 
draw the window 

return a pointer for the window’s defining WINDOW structure 
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Function Definition: ciose.window 

The close window function closes a previously opened text window. Its ini' 
plementatibn is illustrated by the following pseudocode: 


if (window was previousiy allocated) { 
redisplay the window’s former contents 
free the window’s memory allocation 
free the window’s WINDOW structure memory allocation 

} 

return a NULL pointer 


Function Definition; memmove 

The memmove function moves the contents of a memory area to another specified 
area of memory. Because the DeSmet DC88 C compiler’s implementation of 
memmove doesn’t function correctty and the Lattice C compiler doesn’t provide 
a memmove function in its run-time library, the memmove function is condition¬ 
ally compiled for the DeSmet DC88 and Lattice C compilers.' The memmove 
function’s implementation is illustrated by the following pseudocode: 


if (end of the source area overlaps the destination) { 
point the source pointer to the end of Its area 
point the destination pointer to the end of Its area 
while (block move not done) 

decrement the pointers and move a byte 

} 

else { 

while (block move not done) 

move a byte and bump the pointers 

} 

return the starting source pointer 


Function Definition: scrolLwindow 

The scroll window function scrolls the contents of a text window up, down, left, 
or right. Its implementation is illustrated by the following pseudocode: 
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get the tea window’s coordinates 
allocate memory to buffer the tea window’s contents 
If (memory allocation failed) { 
display an error message 
abort the program 

} 

move the tea window’s contents Into the buffer 
switch (direction) { 
case up: 

scroll the buffer up by the specified number of lines 
case down: 

scroll tile buffer down by tiie specified number of lines 
case left: 

scroll the buffer left by tire specified number of columns 
case right: 

scroll the buffer right by the specified number of columns 

} 

display the buffer’s contents 
If (clear the scrolled lines Is requested) { 
switch (direction) { 
case up: 

clear tiie specified number of scroll lines at the t&a window’s bottom 
case down: 

clear the specified number of scroll lines at the tea window’s top 
case left' 

clear tiie specified number of scroll columns at the tea window’s right 
case right: 

clear the specified number of scroll columns at the texf window’s left 


release the previously allocated buffer space 


Function Definition: verticaLbar 

The vertical bar function displays a vertical scroll bar on the right side of a text 
window. Its implementation is illustrated by the following pseudocode: 


trap any possible dMde-by-zero errors 
display an up arrow at the scroll bar’s top 
display the scroll bar’s body 
display a down arrow at the scroll bar’s bottom 
figure the scroll character’s position 
display the scroll character 
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Function Definition: horizontaLbar 

The horizoiitaI_bar function displays a horizontal scroll bar at the bottoni of a 
text window. Its implementation is illustrated by the following pseudocode: 


trap any possible divide-by-zero errors 

display a left arrow at the beginning of the scroll bar 

dl^lay the scroll bar’s body 

display a right arrow at the end of the scroll bar 

figure the scroll character’s position 

display the scroll character 


Function Definition: saveJnitiaLvideo 

The save_initial_yideo function initializes the WINDOWS operating environ¬ 
ment, saves the initial cursor values, turns the cursor off, and saves the initial con¬ 
tents of the display screen. Its implementation is illustrated by the following 
pseudocode: 


Initialize the WINDOWS operating environment 
get Uie cursor values 
turn the cursor off 

save and clear the display screen’s contents by making it a text window 
set up the resetJnhialyideo funcb'on cedi via the atexitQ routine 


Function Definition: resetJnitiaLvideo 

The reset_initial_video function is used internally by the WINDOWS operating 
environment to restore the original display screen’s values. A call to the save_in- 
itial video function must occur before the WINDOWS operating environment 
can use the reset_initial_video function. The reset_initial_video function’s im¬ 
plementation is illustrated by the following pseudocode: 


restore the original display screen’s contents by closing the previously opened text 
window 

restore the original cursor position 

restore the original cursor character’s starting and ending lines 
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5 Menu Functions 


This chapter presents the WINDOWS toolbox menu functions. These menu func¬ 
tions implement three «ttremefy useful menu types: pop-up menus, dialog box 
menus, and pull-down menus. Although other menu types ^ exist, these three 
are tty far the most popular of the menu types found in today’s state-of-the-art 
application programs. Not only do th^ increase operator effidencty, th^ also 
provide a much shorter training period for operators who are unfamiliar with an 
application program. 


SOURCE LISTING: menus.c 


Listing 5.1, menusx, defines the global variables and a hotstring fimction used by 
all the Wn^OWS menu functions. The global variable menu att is used tty the 
menu functions as the default display attribute. The ^oBal varmble _mena_hot- 
key is used by the menu functions as the display attriWe for hotk^chara^ers. 
The global variable _menu_hig^light is used tty the menu functions for highlight¬ 
ing a menu item. ” ~ 


Listing 5.1: menus.c 


* menus.c - For the WINDOWS Toolbox 

* Menu Global Variables and Functions 


#inclucle "windows.h" 


int _menu_att = 0x70, _menu_hotkey * 0x7f, jnenu_highlight = 7; 

void hotstringCrow, col, hotkey, att, string) 

int row; 

int col; 

int hotkey; 

int att; 

char *string; 

C 

printstringCrow, col, string); 
setoneCrow, col * hotkey, att); 

> 
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POP-UP MENUS _ 

/ 

Figure 5.1 illustrates a pop-up menu’s components. 


Menu Iteme 


—► Load til 
^ Exit tF 


aye the File 


[Oad the File 
it the Frogpan 


Menu Item Hotkey 


Highlighted Menu Item 


Figure 5.1 A pop-up menu 


Essentially, a pop-up menu is a text window that lists a variety of possible menu 
selections. Following are more complete descriptions of a pop-up menu’s com¬ 
ponents: 


• Menu Items: A pop-up menu is composed of one or more menu items. 

• Highli^ted Menu Item: As Figure 5.1 illustrates, one of the menu’s items 
will be highlighted. The highlighting can be moved from one item to the 
next by pressing either the Up Arrow key or Down Arrow key. The high¬ 
lighted menu item can be selected by pressing the Enter key. Further¬ 
more, help, if it’s available, can be requested by pressing the FI key. 

• Hotkeys: Each of the pop-up menu items has an associated hotkey. Al¬ 
though Figure 5.1 shows the hotkeys as underlined characters (i.e., "S" for 
Save, "L" for Load, and "E" for Exit), a menu item’s hotkey character will 
actually be displayed using a color different from the one used for the 
remainder of the menu item’s characters. Selection of a pop-up menu 
item can be accomplished simply by pressing its corresponding hotkey. 
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SOURCE LISTING: popup.c _ 

Listing 5.2, popupx, presents the pop-up menu function. 


Listing 5.2: popup.c 


* popup.c - For the WINDOWS Toolbox 

* Popup Menu Routine 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include "windows.h” 


int popup(number, menu, row, coU) 
int number; 

MENU *menu; 
int row; 
int coU; 

C 

int i, col2, key, flag = FALSE, mien = 0, select, srow, scol; 
WINDOW *window1, *window2; 

getcurpos(&srow, &scol, &i, &key); 
if (i != 32) C 
flag = TRUE; 
cursoroffO; 

> 

for (i = 0; i < number; i++) 

mien = max(mlen, strlen(menu[i3.string)); 
mien += 4; 
coU -= mien / 2; 
col2 = coll + mien - 1; 

windowl = open_window<row, coll, row + number + 1, col2, 
_DRAW, _menu_att, _SINGLE_LINE, _menu_att); 
for <i = 0; i < number; i++) 

hotstringCrow + 1 + i, coll + 2, menu[i].hotkey, 
_menu_hotkey, menu Ci].st ring); 

continued... 
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...from previous page 

select s 0; 
while (TRUE) i 

windowZ = open_window(row + 1 + select, coll + 1, 
row + 1 + select, col2 - 1, _N0_DRAW); 
setattribCrow + 1 + select, coll + 1, row + 1 + select, 
col2 - 1, _menu_highlight); 
while (TRUE) C 

key = waitkeyO; 
switch (key) i 
case 13: 

key = menuCselect]-stringCmenuCselect]-hotkey]; 
break; 
case 315: 

if (menuCselect]-help != NULL) 

(*menu[select].help)(); 
continue; 

> 

break; 

> 

window2 » close_winclow(window2); 
switch (key) i 
case 27: 

close_window(window1); 
setcurpos(srow, scol); 
if (flag) 

cursoronO; 
return(O); 
case 328: 

select = (--select + number) % number; 
continue; 
case 336: 

select = ++select % number; 
continue; 
default: 

continued... 
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if (key > 31 M key < 128) ( 

for <1 = 0; i < number; i++) i 

if (toupperdcey) == toupper(menuCi].stringCmenuCi].hotkey])) C 
windowl = close_windou(windou1); 
if (menuCil.function != NULL) i 
(*menu[i] .functionX); 
setcurpos(srow, scol); 
if (flag) 

cursoronO; 

return(O); 

> 

setcurpos(sroM, scol); 
if (flag) 

cursoronO; 
return(toupper(key)); 


Function Definition: popup 

The popup function implements pop-up style menus. Its implementation is il¬ 
lustrated by the following pseudocode: 


get the current cursor values 
If (cursor Is on) 
turn the cursor off 
figure the menu’s width 
figure the menu’s left column 
figure the menu’s right column 
open a text window for the menu 
for (I = 0;l < number of menu items; I + +) { 
display a menu item 

} 


continued., 
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...from previous page 

highlighted menu item = first menu item 
while (TRUE) { 

open a t&d window to save the highlighted menu item 
highlight the highlighted menu Item 
while (TRUE) { 
get a key 
switch (key) { 
case ENTER; 

key = highlighted menu item’s hotkey 
break 
case FI: 

call the highlighted menu item's help function 
continue 

} 

break 

restore the highlighted menu Item’s appearance by closing its t&ct window 
switch (key) { 
case ESC; 

erase the pop-up menu by closing its text window 
restore the cursor to its previous state 
retum(0) 

case UP ARROW; 

move the highlighting up to the previous menu item 
continue 

case DOWN ARROW; 

move the highlighting down to the next menu Item 
continue 
default: 

if (key Is a printable character) { 

for (I = 0; I < number of items; i++) { 

If (key = menu ltem[i]’s hotkey) { 

erase the menu by closing its text window 
if (function I = NULL) { 
call the function 
restore the cursor values 
retum(0) 

} 

restore the cursor values 
retum(menu Item’s hotkey) 

} 

} 

} 

} 
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DIALOG BOX MENUS _ 

Figure 5.2 illustrates a dialog box menu’s components. 



Menu Item 
Hotkey 


Figure 5.2 A dialog box menu 


Basically, a dialog box menu is a text window that either displays a statement or 
asks a question, or both. In response, the operator must choose from a relative¬ 
ly short list of menu items. Following are more complete descriptions of a dialog 
box menu’s components: 


• Titles: A dialog box menu always has one or more titles. These titles are 
used to either display a statement or ask a question, or both. 

• Menu Items: In addition to the titles, a dialog box menu will always have 
one or more menu items. 

• Hig hli g h ted Menu Item: As Figure 5.2 illustrates, one of the dialog box 
menu’s items will be highlighted. The highlighting can be moved from one 
menu item to the next by pressing the Left Arrow or Right Arrow keys. 
The highlighted menu items can be selected by pressing the Enter key. 
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• Hotkeys: Each of the dialog box menu items has an associated hotkey. 
Although Figure 5.2 shows the hotkeys as underlined characters (i.e., "Y" 
for Yes, "N" for No, and "C for Cancel), a menu item’s hotkey character 
will actually be di^layed in a color different from the one used for the 
remainder of the menu item’s characters. Selection of a dialog box menu 
item is accomplished simply by pressing its corresponding hotkey. 


SOURCE LISTING: dialog.c _ 

listing 5.3, dialt^, presents the dialog box menu function. 


Listing 5.3: diaiog.c 


* dialog.c - For the WINDOWS Toolbox 

* Dialog Box Menu Routine 

****************************************************************************^ 


#include <8tdio.h> 
#include <stdlib.h> 
#include <8tring.h> 
#ifndef EC0C88 
#ifndef LATTICEC 
#include <8tdarg.h> 
#endif 
#endif 


#include "windows.h“ 


#ifdef WATCOMC 

int dialogjnenuCrow, col, nchoices, menu, ntitles, ...) 
#else 

int dialog_inenu(row, col, nchoices, menu, ntitles) 

#endif 

int row; 

int col; 

int nchoices; 

MENU *menu; 
int ntitles; 

continued... 
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...from previous page 
< 

int i, j, key, rowl, coll, row2, col2, flag = FALSE, mien * 0, chlen 
int sroM, scol, *tab8, select; 
char **titles; 

WINDOW *wlndow; 
va_list arg^marker; 

getcurposC&srow, &scol, &i, &key); 
if (i != 32) C 
flag = TRUE; 
cursoroffO; 

> 

if ((titles = malloc(ntitles * sizeof(char *))) == NULL || 

(tabs = inalloc(nchoices * sizeof(int))) == NULL) i 
printf(»*Out of MemoryXn**); 
exit(l); 

> 

va_start(arg_inarker^ ntitles); 
for (i = 0; i < ntitles; i++) C 

titles[i] = va_arg(arg_inarker, char *); 
mien = max(mlen, strlen(titlesCi])); 

> 

chlen = nchoices - 1; 

for (i = 0; i < nchoices; i++) 

chlen += strlendnenuCi].string) + 4; 
mlen = max(mlen, chlen); 
rowl = row - (ntitles + 7) / 2; 
row2 = rowl + ntitles + 6; 
coll = col - (mien + 4) / 2; 
col2 = coll + mien + 3; 

window = open_window{row1, coll, row2, col2, _DRAW, _roenu_att, 
_SIMGLE_LIME, _nienu_att); 
for (i * 0; i < ntitles; i++) 

printcenter(row1 + 1+2, col, titlesli]); 
j = col - chlen / 2; 
for (i =5 0; i < nchoices; i++) i 
tabsCi] = j; 

continued... 


88 



Menu Functions 5 


...from previous page 

if (!i> 

drawbox(row2 - 3, j, row2 - 1, 

j + strlenCmenuCi].string) + 3, 

_DOUBLE_LINE, _menu_att); 

else 

drawbox(rou2 - 3, j, row2 - 1, 

j + strlen(menuCi].string) + 3, 

^SINGLE-LINE, -HienU-Stt); 
hotstring(row2 - 2, j + 2, menu[i].hotkey, 

-inenu-hotkey, menuCi] .string); 
j += strlen(menuCi].string) + 5; 

> 

select = 0; 
while (TRUE) C 

if ((key = waitkeyO) « 13) 

key = menuCselect] .stringlmenuCselect] .hotkey] ; 
switch (key) { 
case 331: 

if (nchoices != 1) C 

drawbox(row2 - 3, tabs[select], row2 - 1, 

tabsCselect] + strIen(menu[select].string) + 3, 

-SINGLE-LINE, -menU-Stt); 
select = (--select + nchoices) % nchoices; 
drawbox(row2 - 3, tabs[select], row2 - 1, 

tabs[select] + strlen(menu[select].string) + 3, 

-DOUBLE-LINE, -fnenU-Stt); 

> 

continue; 
case 333: 

if (nchoices != 1) C 

drawbox(row2 - 3, tabs[select], row2 - 1, 

tabs[select] > strlen(menu[select].string) + 3, 

-SINGLE-LINE, -menU-Stt); 
select = ++select % nchoices; 
drawbox(row2 - 3, tabs[select], row2 - 1, 

tabslselect] + strIen(menu[select].string) + 3, 
-DOUBLE-LINE, -menU-Stt); 

> 

continue; 

continued... 
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default: 

if (key > 31 && key < 128) C 

for (i = 0; i < nchoices; i++) < 

if (toupper(key) *= toupper(menu[i].string[menuCi].hotkey])) C 
close^windowCuindow); 
free(titles); 
free(tabs); 

if (menuCil.function != NULL) < 

(♦menuCi].function)(); 
setcurpos(srow, scol); 
if (flag) 

cursoronO; 

return(O); 

> 

setcurpos(srow, scol); 
if (flag) 

cursoronO; 
return(toupper(key)); 


Function Definition: dialog_menu 

The dialog_iiienu function implements dialog box style menus. Its implementa¬ 
tion is illustrated by the following pseudocode: 
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get the current cursor values 
If (cursor is on) 
turn the cursor off 

allocate memory for an array of title string pointers and an array of menu item tab 
positions 

if (insufficient memory) { 
display an error message 
atxrrt the program 

} 

set the title pointers 
figure the menu's width 
figure the menu’s top row 
figure the menu’s bottom row 
figure the menu’s left column 
figure the menu’s right column 
open up a text window for the menu 
for (i = 0; I < number of titles; i++) { 
displays title 

for (i = 0; i < number of Items; i++) { 
save the menu item’s ts^ position 
If (first menu Item) 
draw a highlight box 
else 

draw a regular box 
display the menu item 
figure the next tab position 

\ighllghted menu Item = first menu item 
while (TRUE) { 
get a key 

if (key = = enter; 

key = highlighted menu item’s hotkey 
switch (key) { 

case LEFT ARROW; 

move highlight left to the previous menu item 
continue 

case RIGHT ARROW; 

move highlight right to the next menu Item 
continue 


continued... 
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...from previous page 
default: 

If (key Is a printable character) { 

for (I = 0; / number of Items; /+ +j { 

If (key = = menu ltem[l]’s hoOrey) { 

erase the menu by closing Its text window 
deallocate the array of title pointers 
deallocate the array of tab positions 
If (function I = NULL) { 

call the Item's function 
restore the cursor values 
return(0) 

} 

restore the cursor values 
retum(menu Item's hotkey) 

} 


} 


PULL-DOWN MENUS 


Pull-down menus are the menu ^stem of choice among today’s programmers and 
operators. Although a lot goes into creating a pull-down menu system, all pull¬ 
down menu systems are composed of two basic components: the pull-down menu 
bar and the associated pull-down menus. 


Pull-Down Menu Headings- 


Eile icMunts 


Pull-Down Menu Heading Hotkey ■ 


Jpansaciions 


piunt 


Figure 5.3 A pull-down menu bar 

Figure 5.3 illustrates a pull-down menu bar’s components. Following is a more 
complete description of these components: 
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• Pull-dovm Menu Headings: A pull-down menu bar is made up of one or 
more puU-down menu headings. Essentially, a pull-down menu heading 
categorizes its corresponding pull-down menu’s items. 

• Hotkeys: Each of the pull-down menu headings has an associated hotkey. 
Although Figure 5.3 shows the hotkeys as underlined characters (i.e., "P 
for File, "A" for Accounts, "T" for Transactions, and "P" for Print), a pull¬ 
down menu heading’s hotkey character will actually be displayed in a color 
different from the one used for the remainder of the pull-down menu 
heading’s characters. Pulling a menu down is accomplished simply by 
pressing its corresponding hotkey. 


Menu Items 


File Accounts Tpansactions Print 

Tff yr rMlinHfrBBB*-Highlighted Menu Item 


lead 

Exit the PrograM 


Menu Item Hotkey 


Figure 5.4 A pull-down menu 


When a pull-down menu is pulled down, its appearance is similar to that of a pop¬ 
up menu. Figure 5.4 illustrates a pull-down menu’s components. Following are 
more complete descriptions of these components: 


• Menu Items: A pull-down menu is composed of one or more menu items. 

• Highlighted Menu Item: In Figure 5.4, one of the pull-down menu’s items 
is highlighted. The highlighting can be moved from one menu item to the 
next by pressing either the Up Arrow key or the Down Arrow key. The 
highli^ted menu item can be selected by pressing the Enter key. Fur¬ 
thermore, help, if it’s available, can be requested by pressing the FI key. 
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• Hotkeys: Each of the pull-down menu items has an associated hotkey. 
Although Figure 5.4 illustrates the hotkeys as underlined characters (Le., 
"S" for Save, "R" for Read, and "E" for Exit), a pull-down menu item’s hot¬ 
key character will actually be displayed in a color different from the one 
used for the remainder of the pull-down menu item’s characters. Selec¬ 
tion of a pull-down menu item can be accomplished simpfy 1^ pressing its 
corresponding hotkey. 


SOURCE LISTING: pulldown.c _ 

Listing 5.4, pulldownx, presents the WINDOWS pull-down menu functions. 


Listing 5.4: puiidown.c 


* pulldown.c 

* 


For the WINDOWS Toolbox 
Pulldown Menu Routines 


#include <stdio.h> 
#include <dos.h> 
#include <stdlib.h> 
#include <string.h> 
#include “windows.h” 


static int srow^ scol, flag, ^columns; 
static char *hotkeys; 
static MENU^HEAD *cptr; 

void pulldown_bar(nuraber, head, row) 
int number; 

MENU.HEAD *head; 
int row; 
i 

int i, col; 

continued... 
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flag = FALSE; 

getcurpQS(&srou, &scol, &i, &col); 
if (i != 32) C 
flag = TRUE; 
cursoroffO; 

> 

if (cptr 1= head) <. 

clearscreen(row, 1, row, 80, _menu_att); 
col = 3; 

for (i = 0; i < number; i++) i 
if (columns == NULL) < 

if ((columns = malloc(number * sizeof(int))) == NULL) C 
printf("Out of MemoryXn”); 
exit(l); 

> 

> 

else {. 

if ((columns = realloc(columns, number * sizeof(int))) == 

NULL) i 

printf("Out of MemoryXn”); 
exit(l); 

> 

> 

if (hotkeys == NULL) i 

if ((hotkeys = maHoc((number + 1) * sizeof(char))) == NULL) i 
printf("Out of MemoryXn”); 
exit(l); 

> 

> 

else <. 

if ((hotkeys = realloc(hotkeys, (number + 1) * sizeof(char))) 
== NULL) < 

printfC'Out of MemoryXn"); 
exitd); 

> 

> 

continued... 
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columns[f] s col; 

hotkeystil = toupper(head[n.heading[head[n.hotkey]); 
hotstring(row, col, head[i].hotkey, _menu_hotkey, headli].heading); 
col += strlen(head[i].heading) + 2; 

> 

hotkeys[number] * '\0'; 
cptr = head; 

> 

setcurpos(srow, scol); 
if (flag) 

cursoronO; 

> 

int pulldown(number, head, row, ikey, menu^help) 

int number,- 

MENU^HEAD *head; 

int row; 

int ikey; 

void (*menu_help)(); 
i 

int i, key, col, menu, rcol, select; 
char *match; 

MENU *mptr; ^ 

WINDOW *window1, *window2; 

static char altsC273 = "QWERTYUIOPASDFGHJKLZXCVBNM**; 

pulldown_bar(number, head, row); 
key = ikey ? ikey : waitkeyO; 
if (menu_help != NULL && key == 315) i 
cursoroffO; 

(*menu_help)(); 
setcurpos(srow, scol); 
if (flag) 

cursoronO; 

return(O); 

> 

continued... 
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if (key >= 272 && key <= 281) 
menu = altsCkey - 272]; 
else i 

if (key >= 286 && key <= 294) 
menu = altsCkey - 276]; 
else C 

if (key >= 300 && key <= 306) 
menu = altsCkey - 281]; 

else 

return(key); 


> 

if (!(match = strchr(hotkeys, menu))) 
return(key); 
cursoroffO; 
menu = match - hotkeys; 
while (TRUE) i 

mptr - headCmenu]-mptr; 

col = columns Cmenu]; 

rcol = StrIen(headCmenu]-heading); 

for (i = 0; i < headCmenu]-number; i++) 

rcol = max(rcol, strlen(mptrCi]-string)); 
rcol += col + 1; 

window! = open_window(row, col - 2 , row + 2 + headCmenu]-number, 
rcol, ^NO^DRAW); 

draw_window(row + 1, col - 2, row + 2 + headCmenu]-number, 
rcol, _menu_att, _SINGLE__LINE, _menu_att); 
printone(row, col - 1, 0xb3); 

printone(row, col + strIen(headCmenu]-heading), 0xb3); 
printone(row + 1, col - 1, Oxcl); 

printone(row + 1, col + strlen(headCmenu]-heading), Oxcl); 
for (i = 0; i < headCmenu]-number; i++) 

hotstring(row + 2 + i, col, mptrCi]-hotkey, 
_menu_hotkey, mptrCi]-string); 

select = 0; 
while (TRUE) i 

window2 = open_window(row + 2 + select, col - 1, 
row + 2 + select, rcol - 1, _N0_DRAW); 


continued.. 
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setattribCrow + 2 + select, col - 1, row + 2 + select, 
rcol - 1, _inenu_highlight); 
while (TRUE) < 

key = waitkeyO; 
switch (key) < 
case 13: 

key = mptrCselect]-stringCmptr[select]-hotkey] 
break; 
case 315: 

if (mptr[select]-help != NULL) 

(*inptr [select] -help)(); 
continue; 

> 

break; 

> 

winclow2 = close_winclow(window2); 
switch (key) i 
case 27: 

window] = cIose_window(window]); 
setcurpos(srow, scol); 
if (flag) 

cursoronO; 
return(O); 
case 328: 

select = (--select + head[menu]-number) X 
head[menu]-number; 
continue; 
case 331: 

window] = close_window(window1); 
menu = (--menu + number) X number; 
break; 
case 333: 

window] s close_window(window]); 
menu = ++menu X number; 
break; 
case 336: 

select = ++select X head[menu]-number; 
continue; 


continued.. 
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i 


> 


> 


> 


default: 

if (key > 31 && key < 128) € 

for (i = 0; i < head[menu].number; i++) i 

if (toupper(key) == toupper(mptr[i]-stringCmptrCi].hotkey])) 


> 

break; 


> 

> 

> 

continue; 


windowl = close_window(window1); 
<*mptr[i] .functionX); 
setcurposCsrow, scol); 
if (flag) 

cursoron(); 
return(O); 


Function Definition: puiidown.bar 

The pulldown bar function displays pull-down menu bars. Its implementation is 
illustrated the following pseudocode: 
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get the cursor values 
if (cursor is on) 
turn the cursor off 

if (the pull-down menu isn’t the same as the last one) { 
clear the menu bar’s row 
for (I = 0;l < number of headings; I + +) { 
reallocate the array of hotkeys 
if (the reallocation failed) { 
display an error message 
abort the program 

} 

save the heading’s hotkey 
display ffte menu heading 

flag the end of the hotkey string 
save the pull-down menu pointer 

restore the cursor values 


Function Definition: puildown 

The pulldovni function implements the pull-down menu system. Its implementa¬ 
tion is illustrated by the following pseudocode: 


display the menu bar 
if (an initial key was passed) 
key = Initial key 
else 

key = n&a key pressed 
If (key isn’t an ALT key) 
return(key) 

If (key isn’t a heading hotkey) 
retum(key) 
turn off the cursor 
menu = hotkey menu 
while (TRUE) { 

figure the menu’s width 
open a text window for the menu 
draw the menu’s window 
draw the rest of the menu’s frame 


continued... 
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for (I = 0;i < number of menu items; i++) { 
display a menu item 

highlighted menu Item = first menu Item 
while (TRUE) { 

open a t&ct window to save the highlighted menu item 
highlight the highlighted menu item 
while (TRUE) { 
get a key 
switch (key) { 
case ENTER: 

key = highlighted menu Item’s hotkey 
break; 

CSS0 FI.* 

call the highlighted menu item’s help function 
continue 

} 

break 

lestore the highlighted menu item’s appearance by closing its text window 
switch (key) { 
case ESC: 

erase the pull-down menu by closing its t&ct window 

restore the cursor values 

retum(0) 

case UP ARROW: 

move the highlighting up to the previous menu Item 
continue 

case LEFT ARROW: 

erase the pull-down menu by closing its text window 
heading hotkey = previous heading’s hotkey 
break 

case RIGHT ARROW: 

erase the pull-down menu by closing Its text window 

heading hotkey = next heading’s hotkey 

brosk 

case DOWN ARROW: 

move the highlighting down to the next menu Item 
continue 


continued... 
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default: 

If (key Is printable) { 

for (I = 0; i < number of Items;!++){ 

If (key = = menu ltem[IJ’s hotkey) { 

erase the pull-down menu y closing /fs feixf window 
call the Item’s function 
restore the cursor \mlues 
retum(0) 

} 

} 

} 

continue 

} 

break 

} 

} 
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6 Error-Handling Functions 


To maintain the elegant display screens the WINDOWS toolbox provides, a WIN¬ 
DOWS application program must not permit any uncontrolled di^lay output. 
The chief causes of uncontrolled di^lay output are run-time errors, hardware er¬ 
rors, and program interruptions. Because these three occurrences ban wreak total 
havoc with a di^lay sareen, this chapter presents a variety of functions that will 
effectively trap three belligerents before they can do any serious damage. 


RUN-TIME ERROR TRAPPING 


Although it is practically impossible for a program to trap every type of run-time 
error that can occur, a weU thought out application program should have no 
trouble dealing with all but the most esoteric of run-time errors. Such problems 
as divide-by-zero and file-handling errors can be effectively trapped with con¬ 
siderable ease. Drvide-by-zero errors can be trapped simply by having the ap¬ 
plication perform divisor checks before carrying out any division operations. File¬ 
handling errors, such as the inability to locate a file, can usually be handled by dis¬ 
playing an appropriate error message and having the operator try the operation 
again. In addition to ffle-handling errors, there are a host of other run-time 
problems that can be easily handled simply by telling the operator that an error 
has occurred. Accordingly, the WINDOWS toolbox provides an error-handling 
function for displaying error messages. 


HARDWARE ERROR TRAPPING 


Although most run-time errors can be effectively handled with an appropriate 
error message, hardware error handling is a much more difficult task to imple¬ 
ment effectively. Whenever a hardware error occurs, MS-DOS calls the INT 24H 
critical error handler. On entry to the INT 24H critical error handler, MS-DOS 
will indicate the error device t 5 ^e by setting bit seven of register AH for nondisk 
errors or clearing bit seven of register AH for disk input/output errors; registers 
BP:SI will point to the error device’s header control block; and the lower b)fte of 
register DI will hold one of the following error codes: 
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Error Code 

Error Type 

OOH 

Write-protect error 

OlH 

Unknown unit 

02H 

Drive not ready 

OSH 

Unknown command 

04H 

Data error 

OSH 

Bad request structure length 

06H 

Seek error 

07H 

Unknown media type 

OSH 

Sector not found 

09H 

Printer out of paper 

OAH 

Write fault 

OBH 

Read fault 

OCH 

General failure 


Essentially, the critical error handler must decide to ignore the error, retry the 
error-causing operation, or terminate the program. Once a decision is made, the 
critical error handler passes the decision back to MS-DOS by returning one of the 
following values in register AL: 


Decision Code 

Action to Be Taken 

OOH 

Ignore the error 

OlH 

Retry the operation 

02H 

Terminate the program through the [Ctrl/C] 


handler (INT 23H) 


Although MS-DOS provides a default INT 24H critical error handler, it is total¬ 
ly unsuitable for the WINDOWS operating environment. Its unsuitability stems 
from its offensive habit of displaying the Abort, Retry, Ignore? message as part of 
its error trapping routine. Figure 6.1 illustrates the destruction this message might 
cause if a drive door was inadvertently left open by the operator. Obviously, the 
WINDOWS display screen is ruined by the critical error handler’s message. 
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Pull-Down Menu Bar Overlayed by the MS-DOS Hardware Error Handler - 

Not poadii eppop peadinsr dpive A |pint^ 
Abopt, Retpyi Ignope? 


Figure 6.1 The MS-DOS hardware enwhan^Uer 


Becatise the MS-DOS critical error handler is so incompatible with the WIN¬ 
DOWS operating environment, WINDOWS must be able to provide its own INT 
24H critical error-handling routine. Fortunatefy, some C compilers provide the 
_liarderr and _hardresii]ne functions (these functions may also be called harden* 
and hardresuine by some compilers), which provide an effective means for set¬ 
ting up an INT 24H critical error handler. Basically, the _harderr fimction is used 
by an application program to pass the address of the n^ INT 24H critical error 
handler to MS-DOS. Because the WINDOWS INT 24H critical error handler is 
called eiTor_liandler, its address can be easily passed to MS-DOS executing a 
_liardeiT(emr handler); function call With its address passed to MS-DOS, the 
error_handler Unction will effectively handle all critical errors 1^ displaying a 
dialog box menu on the screen. This dialog box menu asks the operator to make 
a decision about how the error situation should be resolved. The error_handler 
function will then pass the operator’s decision back to MS-DOS via the 
hardresume function. 


SOURCE LISTING: error.c 


Listing 6.1, errorx, defines the WINDOWS error-handling functions. Because 
many of the C compilers that WINDOWS supports don’t offer the Jharderr and 
_hardresume functions in their run-time libraries, the error handler function is 
conditionally compiled only for the C compilers that support the INT 24H related 
library functions. 
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Listing 6.1: error.c 

* error.c - For the WINDOWS Toolbox 

* Error Handling Routines 

*****★***★**★*******★♦******♦*************♦*♦****♦**************************/ 
#include <stdio.h> 

#include <dos.h> 

#include "windows.h” 


void display_error(string) 
char *string; 
i 

static MENU menuC] = (:"OK"> ; 

dialog_inenu(13, 40, 1, menu, 1, string); 

> 

#ifdef HARDERROR 
#ifdef MICROSOFTC 

void far error_handler(unsigned deverror, unsigned errcode, unsigned far *devhdr) 

#define ERRORCODE errcode 

#else 

void far error_handIer<unsigned error, unsigned ax, unsigned bp, unsigned si) 
#define ERRORCODE error 
#endif 
i 

static char *errorsC13] = i 

^''Attempt to write to a write-protected disk">, 

^"Unknown unit">, 

<"Drive not ready">, 

^"Unknown command"}, 

C'CRC error in data"}, 

C"Bad drive-request structure length"}, 

C"Seek error"}, 

^"Unknown media type"}, 

{"Sector not found"}, 

{"Printer out of paper"}, 

{"Write fault"}, 

{"Read fault"}, 

{"General failure"} }; 


continued... 


107 



6 Error-Handling Functions 


...from previous page 

static MENU menu[3] * < ^"Ignore the error", 0, NULL>, 

O'Retry the operation", 0, NULL>, 

C"Abort the program**, 0, NULL> >; 

switch <dialog_menu(13, 40, 3, menu, 1, errorsCERRORCODE])) C 
case M': 

_hardresume(_HARDERR_IGNORE); 
case 'R': 

_hardresume(_HARDERR_RETRY); 

case 

_hardresume(_HARDERR_ABORT); 

> 

> 

#endif 


Function Definition: display.error 

The display_eiTor function uses the dialog_inenu function to display an error 
message. Its implementation is illustrated by the following pseudocode: 


call dialog jnenu to display the error message and wait for the response 


Function Definition: error.handler 

The error handler function is an INT 24H critical error handler. To perform its 
intended Emotion, the error_handler function’s address must be passed to MS- 
DOS via a _harderr function call. The error_handler function’s implementation 
is illustrated by the following pseudocode: 

display an error message and get the operator’s response via a dialog box menu 
retum(the appropriate decision code) 
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[CTRL/Cl AND [CTRL/BREAKl TRAPPING _ 

Whenever either the [Ctrl/C] or the [Ctrl/Break] combination is pressed, 
MS-DOS calls its INT 23H [Qrl/q handler. By default, the MS-DOS INT 23H 
[Qrl/q handler will cause an application program to abort to MS-DOS. Al¬ 
though a program abort might not be a very important event for some programs, 
aborting application programs that have open data files could lead to disastrous 
consequences. To correct this situation, some C compilers supply their own INT 
23H [Ctrl/C] handler. In the case of Power C, the INT 23H [Qrl/C] handler ig¬ 
nores all [Ctrl/C] interruptions. Thus, ill-timed program aborts are completely 
eliminated. Unfortunately, most C compilers take the attitude that the program¬ 
mer is on his own when it comes to [Ctrl/C] handling. Luckily, developing an INT 
23H [Ctrl/C] handler is a fairly simple task. 

As mentioned above, MS-DOS traps [Qrl/C] and [Ctrl/Break] k^ combinations 
by calling the INT 23H [Ctrl/q handler. Upon return from this handler, MS- 
DOS will terminate the currently executing application program if the cany flag 
is set; otherwise, MS-DOS will return control back to the application program. 
Therefore, a user-developed INT 23H [Qrl/C] handler only needs to return with 
a cleared carry flag to eliminate unwanted program terminations. The following 
is a simple INT 23H [Ctrl/C] handler that clears the carry flag: 


Example 6.1 


void interrupt far ctrl_c_handler<es, ds, di, si, bp, sp, bx, 
dx, cx, ax, ip, cs, flags) 

unsigned es, ds, di, si, bp, sp, bx, dx, cx, ax, ip, cs, flags; 
C 

flags &= Oxfffe; 

> 


To set up the ctrl_c_handler function as the new INT 23H [Ctrl/q handler, an 
application program must pass its address by performing a __dos_setvect( 0 x 23 , 
Ctrl c handler); function call. This function call will replace tHe current INT 23H 
[Ctfl/C] handler’s address with ctrl_c_handler’s address. 
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Although it would be logical to assume that the former INT23H [Ctrl/CJ handler’s 
address should be saved and then restored at program termination, MS-DOS 
relieves the application program of this re^onsibility automatical^ saving the 
current INT 23H [Ctrl/C] handler’s address before executing an ai^lication 
program. Upon termination of the application program, MS-DOS automatical^ 
restores INT 23H to its previous handler, llius, the application program is 
relieved of the responsibility for restoring the INT 23H [Ctrl/C] hanger. 
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7 SIMPLE LEDGER 


The previous six chapters have been devoted to constructing the WINDOWS tool¬ 
box. To show you how the WINDOWS toolbox is used in an actual application 
program’s implementation, this chapter presents a sample WINDOWS applica¬ 
tion program called SIMPLE LEDGER. As its name implies, SIMPLE 
LEDGER is a rudimentary general ledger accounting ^tem. Although its fea¬ 
tures are quite basic, SIMPLE LEDGER can be used to successfully maintain a 
general ledger for almost any small business. 


SIMPLE LEDGER ACCOUNT CLASSIFICATIONS 


Even though the WINDOWS toolbox makes SIMPLE LEDGER a fairly uncom¬ 
plicated program to operate, an elementary understanding of accounting is re¬ 
quired to put the program into practical use. Furthermore, the SIMPLE 
LEDGER account classifications must be understood to properly build a general 
ledger’s chart of accounts. Figure 7.1 illustrates how SIMPLE LEDGER breaks 
down a general ledger’s accounts into ten distinct classifications. Although these 
ten classifications are fairly straightforward, the Be ginning Inventories and En¬ 
ding Inventories classifications require some clarification. 

To correctly determine the cost of goods sold on an income statement, SIMPLE 
LEDGER needs to know both the starting value and the ending value for a 
business’s inventories. Accordingly, SIMPLE LEDGER requires the operator to 
maintain two separate accounts for each of the business’s inventories. Although 
this duplication of inventory accounts may seem to be an unacceptable account¬ 
ing practice, SIMPLE LEDGER knows which inventory figure is appropriate for 
a particular financial report; therefore, the equality of debits and credits is never 
corrupted by SIMPLE LEDGER’S use of duplicate inventory accounts. 
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Number Range 

Account Type 

Examples 

10000- 17999 

Current Asset 

Cesh, Accounts Receivable, 
Marketable Securities, etc. 

18000- 18999 

Beginning Inventory 

Merchandise Inventory, 

Rav Materials, Unfinished 
Goods, Finished Goods, etc. 

19000- 19999 

Ending Inventory 

Merchandise Inventory, 

Rav Materials, Unfinished 
Goods, Finished Goods, etc. 

20000 - 29999 

Plant Asset 

Land, Buildings, 

Equipment, etc. 

30000 - 39999 

Current Liability 

Accounts Payable, Notes 
Payable, etc. 

40000 - 49999 

Long-Term Liability 

Notes Payable, Mortgage 
Payable, etc. 

50000 - 59999 

Capital 

Capital, Common Stock, 

Treasury Stock, Preferred 
Stock, etc. 

60000 - 69999 

Revenue 

Sales, Sales Discounts, 

Sales Allovances, etc. 

70000 - 79999 

Purchases 

Purchases, Purchases 
Discounts, etc. 

80000 - 89999 

Expense 

Wages, Salaries, Utilities, 
Travel, etc. 

90000 - 99999 

Other Revenue or Expense 

Interest, Income Taxes, 

Cash Short and Over, etc. 


Figure 7. 1 SIMPLE LEDGER account classifications 


SOURCE LISTING: ledqer.c _ 

Listing 7.1, ledgerx, is the source code for SIMPLE LEDGER. This demonstra¬ 
tion program illustrates many of functions that are found in the WINDOWS tool¬ 
box: pull-down menus for program navigation, extensive use of windows for 
screen di^lays, and dialog box menus for operator prompts. Additionally, 
ledger.c features a number of data entry routines you may find useful for inclusion 
in your own application programs. 
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Listing 7.1: ledger.c 


* ledger.c - For the WINDOWS Toolbox 

* SIMPLE LEDGER - A Demonstration Program 


#inclucle <stdio.h> 
#include <stdlib.h> 
#include <string.h> 


#ifndef DC88 


#include <time.h> 
#else 

#include <math.h> 
#endif 


#include "windows.h” 

#define print_cr<) report_lineCO] = '\0';\ 
print_line() 


typedef struct i 
long number; 
char name[31]; 
double balance; 

> ACCOUNT; 

typedef struct i 
long acct_no; 

char date[9], description[31]; 
double amount; 

> TRANSACTION; 

void ol_func(void); 
void cl_func(void); 
void ep_func(void); 
void ea_func(void); 
void et_func(void); 
void ca_func(void); 
void tb_func(void); 
void glar_func(void); 


continued... 
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...from previous page 

void fs_func(void); 
void ea_func(void); 
void et_func(void); 

int inputstring(int, int, int, int, char *); 

int inputdoUarsCint, int, int, int, double *); 

int inputnumberCint, int, int, int, long *); 

void setbitCchar *, int); 

void resetbit<char *, int); 

int testbitCchar *, int); 

int nextbit(char *, int); 

int confjareCACCOUNT *, ACCOUNT *); 

void savenums(void); 

void saveaccts(void); 

void savetrans(void); 

void start_report(void); 

void print_heading(void); 

void print_line(void); 

double print_accounts<long, long, int); 

static MENU file[] = i 

C'Open a Ledger”, 0, ol_func>, 
enclose a Ledger”, 0, cl_func>, 

C”Exit the Program”, 0, ep_func> >; 

static MENU print!) = C 

O'Print a Chart of Accounts”, 8, ca_func>, 

<”Print a Trial Balance”, 8, tb_func>, 

O'Print a General Ledger Activity Report”, 8, glar_func>, 
<”Print the Financial Statements”, 10, fs_func> >; 

static MENU^HEAD heads[] == C 
C”File”, 0, 3, file}, 

<”Print”, 0, 4, print} }; 

static char company_name[31], report_titleC81], report_line[81]; 

static int num^accts, num^trans, gen_att = 0x70; 

static int report_page, report_lines; 

static ACCOUNT account[100]; 

static TRANSACTION transaction[200]; 


continued... 
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static char cnnaine[13], anameCIS], tnaine[13]; 
static WINDOW *rwindow; 

FILE *cnaine, ♦accounts^ * transact ions; 

main(int argc, char ♦argvC]) 

C 

int nunter; 
boolean mono s FALSE; 

printfC* •*); 
setcur8or(6, 7); 
save_i ni t i a l_vi cleo(); 
if (argc « 2) i 

if (toupper(argv[1] [0]) 'BO 
mono s TRUE; 

> 

if (Imono) C 

_menu_att * 0x30; 

_menu_hotlcey « 0x34; 

_menu_highlight * 0x47; 
gen_att * 0x17; 

> 

pulldown_bar(2, heads, 1); 

hotstringd, 16, 0, _menu_hotlcey, “Accounts**); 

hotstringd, 26, 0, _menu_hotlcey, **Transactions**) 

clearscreen(25, 1, 25, 80, _menu_att); 

while (TRUE) < 

printcenter(25, 40, company^name); 
switch (pullclown(2, heads, 1, 0, NULL)) i 
case 0: 

if (rwindow !» NULL) 

close_window(rwindow); 
break; 
case 286: 

number « num.accts; 
ea_func(); 

if (num_accts || number) < 
savenumsO; 
saveacctsC); 

> 

break; 

continued... 
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case 276: 

number = num^trans; 
et.funcO; 

if (num^trans || number) C 
savenumsO; 
savetransO; 

> 

> 

> 

> 

void ol_func(void) 

C 

char stringC9], titleC31]; 

WINDOW *uindow; 
static MENU menu[] - < 

C**Open a New Ledger**>, 

C*'New Ledger Name”>, 

<«Cancel"> >; 

cl^funcO; 
while (TRUE) C 

window = open_window(11, 27, 15, 53, _DRAW, gen_att, 
_SINGLE_LINE, gen^att); 
printstring(13, 29, "Open Ledger:”); 
drawbox(12, 42, 14, 51, ^SINGLE.LINE, gen^att); 
string[0] = '\0'; 
while (TRUE) < 

switch(inputstring(FALSE, 13, 43, 8, string)) L 
case 13: 

if (stringCO]) 
break; 

else 

continue; 

case 27: 

cIose_window(window); 
return; 


continued... 
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default: 

continue; 

> 

break; 

> 

cIose_windowCwindow); 
sprintf<cnnanie, string); 

sprintfCaname, “Xs.lZ", string); 
sprintfCtname, “Xs.lS”, string); 
if ((cname = fopenCcnname, "r+b”)) != NULL) 
break; 

sprintfCtitle, "Couldn't Find Ledger: %s", string); 
switch (dialog_inenu(13, 40, 3, menu, 1, title)) L 
case 'C': 

return; 
case 'N': 

continue; 

> 

window = open_window(11, 15, 15, 64, _DRAW, gen_att, 
^SINGLE-LINE, gen-Ott); 
printstring(13, 17, "Company Name:"); 
drawbox(12, 31, 14, 62, -SINGLE-LINE, gen-att); 
company-name[0] = '\0'; 
while (TRUE) C 

switch(inputstring(FALSE, 13, 32, 30, company-name)) L 
case 13: 

if (company-name[0]) 
break; 

else 

continue; 

case 27: 

close-Window(window); 
return; 
default: 

continue; 

> 

break; 

> 

continued... 
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cIose_uindow(windou); 

window = open_winclow(12, 27, 14, 52, _DRAW, gen_att, 

_SINGLE_.LINE, gen_.att); 

printstring(13, 29, "Initializing the Files"); 
if (KCcname =* fopenCcnname, "w+b")) != NULL && 
fwrite(coinpany_naine, 1, 31, cname) == 31 && 
fwrite(&num_accts, sizeof(int), 1, cname) == 1 && 
fwrite<&num_trans, sizeof(int), 1, cname) == 1)) <. 
if (cname !- NULL) 
fclose(cname); 
cname s NULL; 
company_name[0] = '\0'; 
cIose_windowCwindow); 

dispIay_error("Couldn't Successfully Open the Ledger"); 
return; 

> 

if ({((accounts = fopen(aname, "w+b")) != NULL && 

fwrite(account, sizeof(ACCOUNT), 100, accounts) == 100)) {. 
fclose(cname); 
if (accounts != NULL) 
fclose(accounts); 
cname » NULL; 
company_name[0] = '\0'; 
close_window(window); 

display_error("Couldn't Successfully Open the Ledger"); 
return; 

> 

if ({((transactions = fopen(tname, "w+l>")) {= NULL && 
fwrite(transaction, sizeof(TRANSACTION), 200, 
transactions) ~ 200)) C 
fclose(cname); 
fclose(accounts); 
if (transactions {- NULL) 
fcIose(t ransactions); 
cname - NULL; 
company^name[0] * '\0'; 
cIose_window(window); 

dispIay_error("Couldn't Successfully Open the Ledger"); 
return; 


continued... 
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> 

cIose_wfndow(uindow); 
return; 

> 

window = open_window<12, 29, U, 50, .DRAW, gen^att, 
.SINGLE.LINE, gen.att); 

printstrlng(13, 31, "Opening the Ledger"); 

if (l(fread(company.name, 1, 31, cname) « 31 && 

fread(&num_accts, sizeofdnt), 1, cname) == 1 && 
fread(&num_trans, sizeofdnt), 1, cname) « 1)) c 
fclose(cname); 
cname s NULL; 
company_name[0] * '\0'; 
num_trans = 0; 
cIose_window(window); 

display_error("Couldn't Successfully Open the Ledger"); 
return; 

> 

if ({((accounts = fopen(aname, "r+b*')) != NULL && 
fread(account, sizeof(ACC(XJNT), num_accts, 
accounts) == num.accts)) < 
fclose(cname); 
if (accounts 1= NULL) 
fcIose(accounts); 
cname » NULL; 
company.name[0] * '\0'; 
num^trans * 0; 
cIose.window(window); 

display_error("Couldn't Successfully Open the Ledger"); 
return; 

> 

if ({((transactions = fopen(tname, "r+iy*)) {* NULL && 
fread(transaction, sizeof(TRANSACTION), num_tr8ns, 
transactions) == num_trans)) { 
fclose(cname); 
fcIose(accounts); 
if (transactions NULL) 
fcIose(transactions); 


continued... 
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cname » NULL; 
coinpaiiy_name[0] * '\0'; 
num^trans * 0; 
c lose^wi rKlowC wi ndow); 

display_error<”Couldn't Successfully Open the Ledger”); 
return; 

> 

close^window(ufndow); 

> 

void cl_func<void) 

int i; 

if (cname N NULL) i 
fcloseC cname); 
fclose(accounts); 
fcIose(transactions); 
cname * accounts ® transactions * NULL; 
company^namelO] = '\0'; 
clearscreen(25, 1, 25, 80, _menu_att); 
num^accts = num_trans = 0; 

> 

> 

void ep_func(void) 

C 

clJuncO; 

exit(O); 

> 

void ea_func<void) 

int i, field, current^account « 0, key; 

ACCOUNT acct; 

WINDOW *window1, *window2; 


continued... 
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if (cname =* MULL) 
return; 

witxiowl s open_winck>w<7, U, 19, 65, DRAW, gen att, 

_SIMGLE_LIME, gen_att); 
printstring(9, 16, “Account Number”); 
drawbox(8, 32, 10, 38, ^SINGLE-LINE, gen-Stt); 
printstring(12, 16, “Account Name"); 
drawboxdl, 32, 13, 63, -SINGLE-LINE, gen—att); 
printstringdS, 16, “Account Balance"); 
drawboxCU, 32, 16, 43, -SINGLE_LINE, gen att); 
while (TRUE) C 

clearscreend8, 15, 18, 64, gen-att); 
if (num-accts) i 

printcenterd8, 40, “ESC - Cancel A - Add E - Edit D - Delete"); 
inputnumberCTRUE, 9, 33, 5, &account[current-account].number); 
inputstringCTRUE, 12, 33, 30, account[current-account] .name); 

^ inputdollarsdRUE, 15, 33, 10, &account [current-account] .balance); 

else < 

printcenterd8, 40, “ESC - Cancel A - Add"); 
clearscreen(9, 33, 9, 37, gen-att); 
clearscreend2, 33, 12, 62, gen-att); 
clearscreend5, 33, 15, 42, gen att); 

> 

while (TRUE) L 

key a waitkeyO; 
if (key == 27) i 

cIose-Window(windowl); 
return; 

> 

if (key == 328) i 

if (current-account) i 
current-account--; 
break; 

> 

continue; 

> 

continued... 
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if (key == 336) <. 

if (current_account + 1 < num_accts) < 
current_account++; 
break; 

> 

continue; 

> 

if (key <32 11 key > 127) 
continue; 

switch (toupper(key)) i 
case 

if (num^accts == 100) 
continue; 

acct.number » acct.balance s O; 
acct.name[0] « '\0^; 
clearscreendS^ 15, 18, 64, gen_att); 
printcenter(18, 40, “ESC - Cancel**); 
clearscreen(12, 33, 12, 62, gen_att); 
clearscreen(15, 33, 15, 42, gen_att); 
while (TRUE) < 

while (acct.number < 10000 || acct.number > 99999) i 
if (inputnumber(FALSE, 9, 33, 5, &acct.number) 
== 27) i 

c Iose^window(windowl); 
return; 

> 

> 

for (i =0; i < num_accts; i++) € 

if (accountCi].number == acct.number) C 
window2 = open__window(20, 14, 20, 65, 

_DRAW, _menu_highlight, _NO_BORDER); 
putchar(7); 
printcenter(20, 40, 

**Account already exists!**); 
waitkeyO; 

window2 - close_window(window2); 
break; 

> 


continued... 
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> 

if (f »= num^accts) 
break; 

acct.number s O; 

> 

field s 1; 

clearscreen(18, 15, 18, 64, gen^att); 

|5rintcenter(18, 40, "ESC - Cancel F10 - Process”); 
while (TRUE) C 

if (field «s 1) 

key * inputstringCFALSE, 12, 33, 30, acct.name); 

else 

key = inputdollarsCFALSE, 15, 33, 10, &acct.balance); 
switch (key) i 
case 27: 

close_window(windowl); 
return; 
case 13: 
case 336: 

if (field « 1) 
field » 2; 
continue; 
case 324: 

accountCniiR_accts).number ^ acct.number; 
strcpy(account[num_accts].name, acct.name); 
account[num^acctS'M-] .balance - acct.balance; 
c^ort(account, num^accts, sizeof(ACCOUNT), 
comiMire); 

for (i = 0; i < num^accts; i++) C 

if (account[i].number acct.number) C 

current_account = i; 
break; 

> 

> 

break; 
case 328: 

if (field 2) 
field = 1; 
continue; 

continued... 
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default: 

contim^; 

> 

break; 

> 

break; 
case 'D': 

If (Imni.accts) 
break; 

if (!-“num_accts) 
break; 

for (1 * current^account; ! < num^accts; (+-••) C 
account Cl] .number » accountCf ’•* 1] .number; 
strcpyCaccountCf].name, accountCi ■«* H.name); 
accountCf].balance - accountCf ^ 1].balance; 

> 

ff (current^account *= nun^accts) 
current_account--; 
break; 
case 'E': 

strcpyCacct.name, accountCcurrent_account].name); 
acct.balance » accountCcurrent^account] .balanced- 
field * 1; 

clearscreenCIS, 15, 18, 64, gen_att); 
prfntcenter(18, 40, "ESC - Cancel F10 - Process"); 
while (TRUE) C 

if (field == 1) 

key s inputstring(FALSE, 12, 33, 30, acct.name); 

else 

key s inputdollars(FALSE, 15, 33, 10, &acct.balance); 
switch (key) i 
case 27: 

cIose_window(windowl); 
return; 
case 13: 
case 336: 

if (field 1) 
field * 2; 
continue; 


continued... 
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y 


y 


y 


case 324: 

strcpy(account Ccurrent^account].name, 
acct.name); 

account[current^account].balance = 
acct.balance; 
break; 
case 328: 

if (field « 2) 
field s 1; 
continue; 
default: 

continue; 


break; 

> 

break; 

default: 

continue; 

> 

break; 


void et_func(void> 

< 

int i, field, current^trans « 0, key; 
double total » Q; 

ACCCXJNT acct, *acctj3tr; 

TRANSACTION trans; 

WINDOW *window1, *window2; 

if (!num_accts) 
return; 

for <i = 0; i < num^trans; i++) 

total -!■- transaction[i] .amount; 
uindowl = open_window(4, 14, 22, 65, _DRAW, gen^att, 
^SINGLE^LINE, gen^att); 
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printstring(6, 16, "Account Number**); 
drawbox(5, 32, 7, 38, _SINGLE_LINE, gen^att); 
printstring(9, 16, **Account Name**); 
drawbox(8, 32, 10, 63, _SINGLE_LINE, gen^att); 
printstring<12, 16, **Date**); 
drawboxdl, 32, 13, 41, _SINGLE_LINE, gen.att); 
printstringdS, 16, **Description**); 
drawboxdA, 32, 16, 63, _SINGLE_LINE, gen^att); 
printstringdS, 16, **Ainount**); 
drawboxd?, 32, 19, 43, ^SINGLE^LINE, gen^att); 
drawboxd?, 52, 19, 63, ^SINGLE.LINE, gen^att); 
while (TRUE) <. 

clearscreen(21, 15, 21, 64, gen_att); 
if (num_trans) i 

printcenter<21, 40, **ESC - Cancel A - Add E - Edit D - Delete**); 
acct.number = transaction[current_trans].acct^no; 
inputnumber(TRUE, 6, 33, 5, &acct.number); 
acctjDtr = bsearch(&acct, account, num_accts, 
sizeof(ACCOUNT), compare); 
inputstring(TRUE, 9, 33, 30, acct_ptr->name); 
inputstring(TRUE, 12, 33, 8, transactionCcurrent_trans].date); 
inputstring(TRUE, 15, 33, 30, 

t ransaetion(cur rent_t rans].description); 
inputdollars(TRUE, 18, 33, 10, 

&t ransaction[current_t rans].amount); 
inputdollars(TRUE, 18, 53, 10, &total); 

> 

else C 

printcenter(21, 40, **ESC - Cancel A - Add**); 
clearscreen(6, 33, 6, 37, gen_att); 
clearscreen(9, 33, 9, 62, gen_att); 
clearscreen(12, 33, 12, 40, gen_att); 
clearscreen(15, 33, 15, 62, gen^att); 
clearscreen(18, 33, 18, 42, gen_att); 
clearscreendS, 53, 18, 62, gen^att); 
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while (TRUE) ( 

key a waitkeyO; 
if (key «= 27) {. 

close^window(windowl); 
return; 

> 

if (key =* 328) < 

if (current^trans) i 
current^trans--; 
break; 

> 

continue; 

> 

if (key ** 336) i 

if (current_trans + 1 < num_trans) C 
current_trans++; 
break; 

> 

continue; 

> 

if (key < 32 || key > 127) 
continue; 

switch (toupper(key)) i 
case 'k*i 

if (num_trans =« 200) 
continue; 

trans.acct_no = trans.amount = 0; 
if (num^trans) < 

strcpy(trans.date^ transaction[num_trans - 1].date) 
strcpy(tran8.description, 

transaction(nura_trans - 1].description); 

> 

else 

trans.datelO] * trans.descriptionlO] = ^\0'; 
clearscreen(21, 15, 21, 64, gen^att); 
printcenter(21, 40, «ESC - Cancel”); 
clearscreen(6, 33, 6, 37, gen^att); 
clearscreen(9, 33, 9, 62, gen^att); 
inputstring(TRUE, 12, 33, 8, trans.date); 
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input8tring(TRUE, 15, 33, 30, trww.description); 
clearscreendS, 33, 18, 42, gen_att); 
uhile (TRUE) ( 

while (trans-acct^no < 10000 || 
trans.acct^no > 99999) i 
if (inputnumberCFALSE, 6, 33, 5, 
&trans.acct_no) 27) {. 
cIose_window(windowl); 
return; 

> 

> 

acct.nunter = trans.acct^no; 

if <(acctj>tr * bsearchC&acct, account, num^accts, 
sizeof(ACCOUNT), compare)) « MULL) L 
windouZ « open_winck)w(23, 14, 23, 65, 

_DRAW, _inenu_highlight, _MO_BORDER); 
putchar(7); 
printcenter(23, 40, 

“That account nun4)er doesn't exist**); 

uaitkeyO; 

uindow2 = close_window(window2); 
trans.acct^no = 0; 

> 

else 

break; 

> 

inputstringCTRUE, 9, 33, 30, acctj)tr->name); 
field = 3; 

clearscreen<21, 15, 21, 64, gen^att); 
printcenter(21, 40, **ESC - Cancel F10 - Process**); 
while (TRUE) C 

switch (field) {. 
case 1: 

key » inputstring(FALSE, 12, 33, 8, 
trans.date); 
break; 
case 2: 

key s inputstring(FALSE, 15, 33, 30, 
trans.description); 
break; 
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case 3: 

key = inputdollars(FALSE, 18, 33, 10, 
&trans.amount); 

> 

switch (key) < 
case 27: 

close_window(window1); 
return; 
case 13: 
case 336: 

if (field == 1 11 field == 2) 
field++; 
continue; 
case 324: 

transactionCnum_trans3.acct_no = 
trans.acct^no; 

Strcpy(transaction Cnum_trans]-date, 
trans.date); 

strcpy(transaction[num_trans]-description, 
t rans-description); 
t ransact i on Cnum__t rans] - amount = 
trans-amount; 
total += trans.amount; 
current_trans = num^trans; 
num_trans++; 
break; 
case 328: 

if (field == 2 II field == 3) 
field--; 
continue; 
default: 

continue; 

> 

break; 

> 

break; 
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case 'D': 

if (!num_trans) 
break; 

if (!--num_trans) i 
total » 0; 
break; 

> 

total -= transaction[current_trans].amount; 
for (i = current_trans; i < num_trans; i++) C 

transaction[i].acct_no = transactionCi + 1].acct_no; 
strcpy(transactionCi] .date, transactionCi + H.date) 
strcpyCtransactionCi].description, 

transactionCi + ll.description); 
transactionCi].amount = transactionCi + 1].amount; 

> 

if (current_trans == num__trans) 
current_trans--; 
break; 
case 'E': 

strcpyCtrans.date, transactionCcurrent_trans].date); 

St rcpyCtrans.description, 

transaction Ccurrent_trans].description); 
trans.amount = transactionCcurrent_trans].amount; 
field = 1; 

clearscreen<21, 15, 21, 64, gen_att); 
printcenter(21, 40, “ESC - Cancel F10 - Process**); 
while (TRUE) C 

switch (field) i 
case 1: 

key = inputstring(FALSE, 12, 33, 8, 
trans.date); 

break; 
case 2: 

key = inputstring(FALSE, 15, 33, 30, 
t rans.description); 

break; 
case 3: 

key = inputdollars(FALSE, 18, 33, 10, 

&trans.amount); 
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> 


> 

switch (key) < 
case 27: 

close_window(window1); 
return; 
case 13: 
case 336: 


if (field *« 1 II field « 2) 
field++; 
continue; 
case 324: 


Strcpy(transaction Ccurrent^trans].date, 
trans.date); 

Strcpy(transaction[current_trans].description, 
trans.description); 

total -transaction[current_trans].amount + 

t rans. amount; 

transaction[current_trans].amount * 
trans.amount; 

break; 
case 328: 

if (field ** 2 II field « 3) 
field-; 

continue; 

default: 

continue; 


break; 

> 

break; 

default: 

continue; 

> 

break; 


> 


> 
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void ca_func(void) 

int i; 

if (Inum.accts) 
return; 

sprintf(report_title, "Chart of Accounts"); 

start_report<); 

for (i = 0; i < num_accts; i++) < 

sprintf(reportJine, "%5lu X-308 X10.2f ", account[i] .number, 

account[i].name, account[i].balance); 
while (TRUE) i 

if (account[i].number < 18000) i 

strcat(report_line, " Current Asset"); 
break; 

> 

if (accountCi].number < 19000) {. 

8trcat(report_line, " Beginning Inventory"); 
break; 

> 

if (account[i].number < 20000) C 

strcat(report_line, " Ending Inventory**); 
break; 

> 

if (account[i].number < 30000) C 

strcat(report_line, " Plant Asset"); 
break; 

> 

if (account [i] .nuRter < 40000) {. 

strcat(report_line, " Current Liability**); 
break; 

> 

if (account[i].number < 50000) C 

8trcat(report_line, " Long-Term Liability**); 
break; 

> 

if (accountCi].number < 60000) < 

strcat(report_line, " Capital"); 
break; 

> 
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if (accountCi].number < 70000) i 

strcat(report_line, »* Revenue"); 
break; 

> 

if (account[i].number < 80000) C 

strcat(report_line, ” Purchase”); 
break; 

> 

if (account[i].number < 90000) i 

strcat(report_line, ” Expense”); 
break; 

> 

strcat(report_line, ” Other Revenue or Expense”); 

break; 

> 

print_line(); 

> 

fprintf(stdprn, ”%c”, 12);; 

> 

void tb_func(void) 
i 

int i; 

double debits = 0, credits = 0; 

if (!num_accts) 
return; 

sprintf(report_title, ”Trial Balance”); 

start_report(); 

for (i = 0; i < num^accts; i++) i 

if (account [i3 .number < 19000 || account [i3 .number > 19999) {. 

if (account[i3-balance >= 0) < 
debits += account[i3-balance; 

sprintf(report_line, ”%5lu %-30s %10.2f”, accountCi3-number, 
account[i3.name, accountCi3.balance); 
print_line(); 

> 

> 

> 
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for (i a 0; i < num_accts; i++) i 

if (account[i].number < 19000 || account[i].number > 19999) < 
if (account[i].balance < 0) < 

credits +* accountCi].balance; 

sprintf(report_line, ”%5lu %-30s %21.2f", accountCi].number, 
accountCi].name, -accountCi].balance); 
print_line(); 

> 

> 

> 

sprintf(report_line, ”%37s.**, "“); 

print^lineO; 

sprintf(report_line, "%37s%10.2f %10.2f", debits, -credits); 
print^lineO; 

sprintf(report_line, ••X37saa=a=a==== ==========»*, »«); 

print_line<); 

fprintfCstdprn, **%c**, 12);; 

> 

void glar_func(void) 

C 

int i, j, k; 

ACCOUNT acct, *acctj)tr; 
static double acct_balC100]; 

if (!num_accts || !num_trans) 
return; 

sprintf(report_title, "Journal Entries"); 
start_report(); 

for <i a 0; i < num^trans; i++) i 

acct.number a transactionCi].acct_no; 

acctjjtr a bsearchC&acct, account, num_accts, sizeof(ACCOUNT), 
compare); 

if (transactionCi].amount >a O) 

sprintf(report_line, "%8s %5lu %-30s %10.2f", transactionCi].date, 
transactionCi].acct_no, acctj)tr->name, 
transactionCi].amount); 
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else 

8printf(report_lfne, "XSs X5lu X-SOs X21.2f“, transactionCi] .date, 
transactioncn.acct.no, acctjE>tr->nanie, 

-transactionCi].amount); 
print^lineO; 

> 

fprintf(8tdprn, "Xc“, 12);; 
cIose^windowCruindow); 

8printf<report_title, »Account Activity Report”); 

8tart_report(); 

for (i * 0; i < num^accts; i++) i 

acct.balCi] « accountCi].balance; 
for (j s 0; j < num.trans; ]♦+) i 

if (accountCi].number «« transaction[j).acct^no) i 
sprintfCreport^line, "Account Number: X5lu", 
account[i].number); 
print_line(); 

8printf(report_line, "Account Name : Xs”, accountCil.name); 
print^lineO; 
for (k s 0; k < 61; k++) 
fprintfCstdprn, "="); 
print^crO; 

8printf(report_line, "X-8s X-2M)8 XIOs XIOs", "Date", 
"Description", "Amount", "Balance"); 
print^lineO; 
for (k s 0; k < 61; k-i*+) 
fprintf(8tdprn, "-"); 
print_cr(); 

8printf(report_line, "XSs X-SOs X21.2f", "", 

"Beginning Balance", acct.baUi]); 
print_line(); 

for (k * j; k < num^trans; k++) i 

if (account[i].number =* transactiontk].acct_no) i 
acct_baUi] +* transaction[k] .amount; 
8printf(report.line, "XSs X-308 X10.2f X10.2f", 

transactionCk].date, transaction[k].description, 
transactionCk].amount, acct.bal[i]); 
print_line(); 

> 

> 
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sprintfCreport^line, “X8s X-308 X21.2f", 
**Endlng Balance**, acct_bal[i]); 
print^lineO; 
for <k * 0; k < 61; k++) 
fprintf(8tclprn, **=**); 
print_cr<); 
print^crO; 
break; 

> 

> 

> 

fprintfCstdprn, **Xc**, 12);; 
for (1 * 0; i < num.accts; i++) 

account[i].balance « acct_bal[i]; 
num_trans « 0; 
savenumsO; 
saveacctsO; 


void f8_func(void) 

C 

double regl, reg2, net^income; 

if (inum_acct8) 
return; 

8printf(report_title, *'Income Statement**); 

8tart_report(); 

8printf(report_line, **Revenue8:**); 
print_line(); 

regl = print_accounts(60000, 69999, -1); 
sprintf(report_line, **X-30s X21.2f**, **Total Revenuea**, regl); 
print_line(); 
print_cr(); 

sprintf(report_line, **Cost of Goode Sold:**); 

print_line(); 

print_cr(); 

sprintf(report_line, **Beginning Inventories:**); 
print_line(); 

reg2 = print_account8(18000, 18999, 1); 
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sprintf<report_lfne^ **%-30s %10.2f**, "Total Beginning Inventories", reg2) 

print_line(); 

print_cr(); 

sprintf(report_line, "Plus Purchases:"); 
print_line(); 

reg2 += print_accounts(70000, 79999, 1); 

sprintf(report_line, "%-30s %10.2f", "Goods Available for Sale", reg2); 

print_line(); 

print_cr(); 

sprintf(report_line, "Less Ending Inventories:"); 
print_line(); 

reg2 -= print_accounts(19000, 19999, 1); 

sprintf(report_line, "%-30s %21.2f", "Total Cost of Goods Sold", reg2); 
print_line(); 

sprintf(report_line, "%30s %21s", "", "."); 

print_line(); 
regl -= reg2; 

sprintf(report_line, "%-30s %21-2f", "Gross Profit", regl); 

print_line(); 

print_cr(); 

sprintf(report_line, "Operating Expenses:"); 
print^lineO; 

reg2 = print_accounts(80000, 89999, 1); 

sprintf(report_line, ”X-30s %21-2f", "Total Operating Expenses", reg2); 
print_line(); 

sprintf(report_line, "%30s %21s", "", "."); 

print_line(); 
regl -= reg2; 

sprintf(report_line, "%-30s %21.2f", "Income from Operations", regl); 

print_line(); 

print_cr(); 

sprintf(report_line, "Other Revenues & Expenses:"); 
print_line(); 

reg2 = print_accounts(90000, 99999, -1); 

sprintf(report_line, "X-30s %21-2f", "Totl Other Revenues & Expenses", 
reg2); 

print_line(); 

sprintf(report_line, "X30s %21s", "", "."); 
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print_line(); 
reg1 -= reg2; 

sprintf(report_line, ”%-30s %21.2f**, "Net Income", regl); 
print_line(); 

sprintf(report_line, "%30s %21s", "", »*=========="); 

pn’nt__line<); 

fprintfCstdprn, "%c", 12); 
net_income = regl; 
close_windou(rwindow); 
sprintf(report_title, "Balance Sheet"); 
start_report(); 

spr 1 ntf(report_line, "Assets:"); 

print_line(); 

print_cr(); 

sprintf(report_line, "Current Assets:"); 
print_line<); 

regl = print_accounts(10000, 17999, 1) + 
print_accounts(19000, 19999, 1); 

sprintf(report_line, "%-30s %21-2f", "Total Current Assets", regl); 

print_line(); 

print_cr<); 

sprintf<report_line, "Plant Assets:"); 
print_line(); 

reg2 = print_accounts(20000, 29999, 1); 

sprintf(report_line, "X-30s %21-2f", "Total Plant Assets", reg2); 
print_line<); 

sprintf<report_line, "%30s %21s", "", "."); 

pn'nt_line<); 
regl += reg2; 

sprintf(report_line, "%-30s %21.2f", "Total Assets", regl); 
print_line(); 

sprintf(report_line, "X30s %21s", "", ”==========»'); 

print_line(); 

print_cr(); 

spr 1 ntf(report_line, "LiabiIities:"); 

print_line(); 

print_cr(); 

sprintf(report_line, "Current Liabilities:"); 
print_line(); 
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regl « prtnt_accounts(30000, 39999, -1); 

8prlntf(report_llne, "X-308 X21.2f", “Total Current Liabilitie8'', regl) 

print_line(); 

print_cr(); 

sprintf(reportJine, "Long-Term Liabilities:"); 
print^lineO; 

reg2 = print_account8(40000, 49999, -1); 

sprintf(report_line, "%-308 %21.2f", "Total Plant Assets", reg2); 
print_line(); 

sprintf(report_line, "XSOs X21s", "", ".*•); 

print^lineO; 
regl +« reg2; 

sprintf(report_line, "%-308 X21.2f", "Total Liabilities", regl); 

print_line(); 

print_cr(); 

sprint f(report_line, "Capital:"); 
print_line(); 

reg2 * print_account8(50000, 59999, -1); 

sprintfCreport^line, "X-308 X10.2f", "Net Income", net^income); 
print_line(); 

8printf(report_line, "X30s.", ««); 

print_line<); 
reg2 += net_income; 

sprintf<report_line, "X-308 X21.2f", "Total Capital", reg2); 
print^lineO; 

sprintfCreport^line, "X308 X2l8", "", ".”); 

print_line(); 
regl += reg2; 

8printf(report_line, "X-308 X21.2f", "Total Liabilities and Capital", 
regl); 

print^lineO; 

sprintf (report_line, "X30s X21s", "", "s=xssr=sss»<); 
print_line(); 

fprintfCstdprn, "Xc", 12); 
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int inputstring(int flag, int row, Int col, int length, char ^string) 
i 

int key; 

while (TRUE) i 

setcurposCrow, col); 
printf(”%-*8", length, string); 
if (flag) 

return(O); 

setcurpo8(row, col + strlen(8tring) - (strlen(8tring) ** length)); 
cursoronO; 
key s waitkeyO; 
cursoroffO; 
switch (key) < 
case 8; 

if (8trlen(8tring)) 

8tring[8trlen(8tring) - 1] « ^\0'; 
break; 

case 327: 

stringCO] * ^\0'; 
break; 
default: 

if (key > 31 M key < 128) 

if (strlen(8tring) 1= length) i 

8tring[8trlen(string) + 1] * '\0'; 
string[8trlen(string)] = key; 

> 

> 

else 

return(key); 

> 

> 

> 

int inputclollar8(int flag, int row, int col, int length, double *dptr) 
i 

int i, key, decimal_count * 2; 
boolean decimal « TRUE, sign; 
char string[81]; 
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if (♦dptr > -.01 && ♦dptr < .01) 

♦dptr = 0; 

sign = *clptr < 0 ? TRUE : FALSE; 
sprintf(string, length, *clptr); 

if (stringClength - 2) == '0' && stringClength - 1] == 'OO 
decimal s FALSE; 
while (TRUE) C 

if (*dptr 0 && sign) 

sprintfCstring, ”X*s", length, **-0.00**); 
else i 

if (sprintf(string, **X*.2f**, length, *dptr) > length) i 
for (i = 0; i < length; i++) 
stringCi] = '*'; 

StringClength] = '\0'; 

> 

> 

printstringCrow, col, string); 
if (flag) 

return(O); 

#ifndef DC88 

setcurpos(row, decimal ? col + length - (decimal_count ? 1 : 2) 
: col + length - 4); 

#else 

if (decimal) 

setcurpos(row, col + length - (decimal_count ? 1 : 2)); 

else 

setcurpos(row, col + length - 4); 

#endif 
cursoronO; 
key = waitkeyO; 
cursoroffO; 
switch (key) i 
case 8: 

if (*dptr) i 

if (decimal) L 

switch (decimal_count) i 
case 0: 

decimal = FALSE; 
break; 
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default: 

stringClength + decimal_count - 3] = 'O'; 

*dptr = atof(string); 

decimal^count--; 

> 

> 

else < 

StringClength - 4] = 'O'; 

#ifndef DC88 

*dptr = atof(string) / 10; 

#else 

*dptr = atof(string); 

*dptr /= 10; 

#endif 

> 

if (*dptr == 0) 
sign = FALSE; 

> 

break; 

case 

if (Idecimal) C 

decimal = TRUE; 
decimal^count = 0; 

> 

break; 

case 

*dptr = - *dptr; 
sign = !sign; 
break; 
case 327: 

*dptr = 0; 

decimal = sign = FALSE; 
break; 
default: 

if (key >= '0' && key <= '9') {. 
if (decimal) { 

switch (decimal_count) 
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case 0: 

8tring[length - 2] s |cey; 

*dptr a atof(8tring); 
declmal_count’*’‘i‘; 
break; 
case 1: 

string[length - 1] = key; 

♦dptr a atof(strlng); 
decimal_count++; 

> 

> 

else < 

if (stringCI] s= ^ ^ 11 string[1] a= ^ 

for <i a 0; i < length - 4; i-n*) 
stringCi] a stringti + Un¬ 
string [length - 4 ] a icey; 

*dptr a atof(string); 

> 

> 

if (*dptr >a 0 && sign) 

♦dptr a - *dptr; 

> 

else 

return(key); 


int inputnumberCint flag, int roWn int col, int length, long ♦Iptr) 

< 

int i, key; 
char string[81]; 


while (TRUE) i 
if <*lptr) < 

if (sprintfCstring, ••X*lu", length, *lptr) > length) C 
for <i a 0; i < length; i++) 

8tring[i] a 
string[length) a '\0'; 

> 

> 
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else 

sprintf(string, **X*s**, length, 
printstringCrow, col, string); 
if (flag) 

return(O); 

setcurposCrow, col ♦ length - 1); 
cursoronO; 
key = waitkeyO; 
cursoroffO; 
switch (key) C 
case 8: 

if (*lptr) 

*lptr = (*lptr - (stringClength - 1] - '0')) / 10; 
break; 
case 327: 

♦Iptr = 0; 
break; 
default: 

if (key >= ^0' && key <= ^9') C 
if (stringCO] == ' O 

*lptr = *lptr * 10 + (key - ^0'); 

> 

else 

return(key); 

> 

> 

> 

int coinpare(ACCOUNT ♦accti, ACCOUNT *acct2) 

C 

if (acct1->number < acct2->number) 
return(-l); 

if (acct1->number > acct2->number) 
return(l); 
return(O); 


void savenums(void) 
C 


continued... 
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if (!(!fseelc(cname, 31, SEEK^SET) && 

fwriteC&num^accts, sizeofCint), 1, cname) == 1 && 
fwrite(&num_trans, sizeof<int), 1, cname) == 1)) i 
display_error(”Disk write error”); 

> 

> 

void saveaccts(void) 

C 

if (!(!fseek(accounts, 0, SEEK_SET) && 

fwrite(account, sizeof(ACCOUNT), num^accts, 
accounts) num_accts)) 
display_error(”Disk write error”); 

> 

void savetrans(void) 

< 

if (!(!fseek(transactions, 0, SEEK_SET) && 

fwrite(transaction, sizeof(TRANSACTION), num_trans, 
transactions) == num_trans)) 
display_error(”Disk write error”); 

> 

void start_report(void) 

< 

int coll, col2; 
char mess[81]; 

sprintf(mess, ”Please wait while I print the %s”, report_title); 
coll = 40 - (strlen(mess) + 4) / 2; 
col2 = coll + strlen(mess) + 3; 

rwindow * open_window(12, coll, 14, col2, _DRAW, gen__att, 
^SINGLE^LINE, gen^att); r 

printstring(13, coll + 2, mess); 
report jMige = 0; 
print_heading(); 

> 


continued... 
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...from previous page 

void print_heading(vo1d> 

C 

#ifndef 0C88 
char *tstring; 
t finest I time; 

#else 

char tstring[93; 

#endif 

fprintf(stdprn, "Xn”); 
fprintf(stdprn, **Xs\n»*, company^name); 
fprintf(stdprn, "XsXn”, report^title); 

#ifndef DC88 

timeC&ltime); 

tstring * ctime(&ltime); 

fprintf(8tdprn, "X3.3s X2.2s, X4.4s\n", tstring + 4, tstring + 8, 
tstring + 20); 

#else 

dates(tstring); 
if (tstringCO] = ' O 
tstring[0] = 'O'; 
fprintf(stdprn, "XsXn”, tstring); 

#endif 

fprintfCstdprn, "Page: Xd\n", ++reportj>age); 
fprintf(8tdprn, "\n"); 
report_lines = 6; 

> 

void print_line<void) 

C 

fprintf<stdprn, "Xs\n"^ report_line); 
if (++report_lines «= 60) < 

fprintf(stdprn, "%c", 12);; 
print_heading(); 

> 

> 

continued... 
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double print_accounts(long facet, long lacct, int sign) 

< 

int i; 

double total = 0; 

for <i = 0; i < num_accts; i++) < 

if (account [i] .nunnber >= facet && account [i] .number <= lacct) 
sprintf<report_line, "X-SOs %10.2f**, account Ci] .name, 
account[i].balance * sign); 
print_line(); 

total ■(■= account [i] .balance * sign; 

> 

> 

if (facet != 10000 && facet 1= 50000) C 

sprintf(report_line, **%30s.”, ""); 

print_line(); 

> 

return(total); 

> 


Function Definition: main 

As with all C programs, the main function is the main program loop. Its im' 
plementation is illustrated by the following pseudocode: 
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Initialize WINDOWS and save the current display screen 
If (parameter - = ‘B’) 

set monochrome flag to TRUE 
if (Imonochrome) 

set attributes for a color display 
display the pull-down menu bar 
display the Accounts menu Item 
display the Transactions menu item 
clear the bottom display line 
while (TRUE) { 

display the company name on the bottom line 
switch (pull-down menu return key) { 

case pull-down menu item was selected: 
if (pull-down function was a report function) 
close the report window 
break 

case Accounts selected: 
edit the accounts 

if (number of accounts has changed) 
save the accounts 
break 

case Transactions selected: 
edit the transactions 
if (number of transactions has changed) 
save the transactions 


Function Definition: oijunc 

The ol fiinc function is used to open a general ledger. Its implementation is il¬ 
lustrated by the following pseudocode: 
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close any currently open ledger 
while (TRUE) { 

open and display the data entry window 
while (TRUE) { 

switch (data entry return key) { 
case ENTER: 

tf (a ledger name was entered) 
break 
else 

go do It again 
case ESC; 

close the data entry window 
return to the pull-down menu function 
default: 

loop till either ENTER or ESC Is pressed 

} 

} 

close the data entry window 
set the filenames 
if (the ledger exists) 
break 

switch (return key from "Couldn’t Find Ledger'' dialog menu) { 
case 'C': 

return to the pull-down menu function 
case TJ’; 

go get a new ledger name 

} 

open and display a data entry window 
while (TRUE) { 

switch (data entry return key) { 
case ENTER: 

if (a company name was entered) 
break 
else 

go get a company name 
case ESC: 

close the data entry window 
return to the pull-down menu function 
default: 

loop till either ENTER or ESC is pressed 

} 

} 

continued... 
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...from previous page 


close the data entry window 
open and display a message window 
open and Initialize (/?e company data file 
open and Initialize the accounts file 
open and Initialize the transactions file 
close the message window 
return to the pulldown function 


} 

read the company data file 
open and read the account file 
open and read the transactions file 
close the data entry window 


Function Definition: cijunc 

The cl_fuiic function closes an open general ledger. Its implementation is il¬ 
lustrated the following pseudocode: 


If (a ledger is qsen) { 

close the company data file 

close the accounts file 

close the transactions file 

set the streams to NULL 

set the compemy name to a null string 

erase the company name on the bottom line 

set the number of accounts and the number of transactions to zero 

} 


Function Definition: epjunc 

The ep ftanc function exits from SIMPLE LEDGER to MS-DOS. Its implemen¬ 
tation »illustrated by the following pseudocode: 


close any currently open ledger 
exit to DOS and signal no errors 
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Function Definition: eajunc 

ea_fuiic fon^ion is used to add, edit, and delete general ledger accounts. Its 
implementation is illustrated by the following pseudocode: 


if (a ledger isn’t open) 

return to the main program loop 
open and display a data entry window 
while (TRUE) { 

erase the control keys 
If (the ledger Isn't empty) { 
display the control keys 
display the current account’s number 
display the current account’s name 
display the current account’s balance 

} 

else { 

display the control keys 
erase die data entry fields 

} 

while (TRUE) { 
get a key 
If (BSC) 

close the data entry window 
return to the main program loop 

/ffup arrow; { 

If (current account I = first account) { 
back up to the previous account 
go display die new current account 

} 

go get another key 

} 

if (DOWH ARROW) { 

if (current account! - last account) { 
bump to the next account 
go display the new current account 

} 

go get another key 

} 

if (key Isn’t printable) 
go get another key 

continued... 
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...from previous page 

switch (key) { 

if (ledger Is fulO 
go get another key 
set account number to zero 
set account balance to zero 
set account name to a null string 
erase the control keys 
display the control keys 
get a valid account number 
get the account name and account balance 
go get another key 
case 'D': 

If (the ledger Is empty) 
go get another key 
decrement the number of accounts 
If (the ledger Is empty) 
go get another key 
reposition the remaining accounts 
go get another key 
case 'E'; 

account name = current account name 
account balance = current account balance 
erase the control keys 
display the control keys 
get the new account name 
get the new account balance 
save the new account name 
save the new account balance 
go get another key 
default: 

go get another key 

} 

} 

} 
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Function Definition: etjunc 

et^ftinc function is used to add, edit, and delete transactions. Its implemen¬ 
tation IS illustrated by the following pseudocode: 


If (the ledger Is empty) 

return to the main program loop 
figure the debits/credits difference 
open and display ffie datii entry window 
while (TRUE) { 

erase the control keys 
If (there are any transactions) { 
display the control keys 

display the current transaction’s account number 
display the current transaction’s account name 
display the current transaction’s date 
display the current transaction’s description 
display the current transaction’s amount 
display the current debits/credits difference 

} 

else { 

display the control keys 
erase the data entry fields 

while (TRUE) { 
get a key 
If (ESC) { 

close the data entry window 
return to the main program loop 

If (UP ARROW) { 

If (current transaction I = first 
transaction) { 

back up to the previous transaction 
go display the new current transaction 

} 

go get another key 

/ffpowN arrow; { 

If (current transaction I = last 
transaction) { 

bump to the next transaction 
go display the new current transaction 

continued... 
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...from previous page 


go get another key 

if (the key isn't printable) 
go get another key 
switch (key) { 

C330 

If (transaction file is full) 
go get another key 

set the transaction account number to zero 
set the transaction amount to zero 
If (not the first transaction) { 

set the transaction date to the last date 

set the transaction description to the last description 

} 

oiss *{ 

set the transaction date to a null string 
set the transaction description to a null string 

> 

erase the control *eys 
display the control key 
get the transaction account number 
get the transaction date 
get the transaction description 
get the transaction amount 
case 'D': 

If (there aren’t any transactions) 
go get another key 

decrement the number of transactions 
if (there aren’t any transactions) 
go get another key 
adjust the debit/credlt difference 
reposition the remaining transactions 
case 'E': 

transaction date = current transaction date 

transaction description = current transaction description 

transaction amount = current transaction amount 

erase the control keys 

display the control keys 

get the new transaction date 

get the new transaction description 

get the new transaction amount 

continued... 
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...from previous page 

save the new transaction date 
save the new transaction description 
save the new transaction amount 
default: 

go get another key 


} 


Function Definition: cajunc 

The ca ftinc function prints a chart of accounts. Its implementation is illustrated 
by the Following pseudocode: 


If (the ledger Is empty) 

return to the pull-down menu function 
set the report title 
start the report 

for (I = 0; I < number of accounts; I++) { 

set tile report line for the account number, account name, and account balance 
add the classification to the report tine 
print the report line 

} 

do a form feed 


Function Definition: tbjunc 

The tb fiinc function prints a trial balance. Its implementation is illustrated by 
the following pseudocode: 
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set total debits to zero 
set total credits to zero 
if (the ledger is empty) 

return to the pull-down menu function 
set the report title 
start the report 

for (i = 0; I < number of accounts; i++) { 
if (account isn't an ending Inventory account) { 

If (account has a debit balance) { 
debits + = account balance 

set the report line to the account number, account name, and account 
balance 

print the report line 

} 

} 

} 

for (I = 0; I < number of accounts; I + +) { 
if (account Isn't an ending irwerrtory account) { 

If (account has a credit balance) { 
credits + = account balance 

set die report line to the account number, account name, and account 
balance 

print the report line 


} 

print the total debits and credits 
do a form feed 


Function Definition: glarjunc 

The glar func function prints a general ledger activity report, posts the transac¬ 
tions to their respective accounts, and closes out the transactions file. Its im¬ 
plementation is illustrated by the following pseudocode: 
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if (the ledger Is empty \ \ there aren't any tmnsactlons) 
return to the pull-down menu function 
set the report title 
start up tile report 

for (I = 0; / < number of transactions; i++) { 

set the report line to the transaction’s account number and amount 
print the report line 

} 

do a form feed 
close the report wlixfow 
set the report title 
start up the report 

for (I = 0;i < numberof accounts: I + +) { 

new account balance = current account balance 
for (I = 0;j < number of transactions: j + +) { 

If (account number = = transaction’s account 
number) { 

print the account number 
print the account name 
print the beginning balance 
for (k = j:k < numberof transactions; k+ +) { 
if (account number = = transaction’s account 
number) { 

new account balance + = transaction amount 
set the report line for the transaction’s date, description, amount, 
and the new account balance 
print the report line 

} 

print the ending balance 

} 

} 

do a form feed 

save tile new account balances 
set the number of transactions to zero 
save the affected data tiles 


Function Definition: fsjunc 

The fs^func function prints an income statement and a balance sheet, 
plementation is illustrated by the following pseudocode: 


Its im- 
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If (the ledger Is empty) 

return to the pull-down menu function 
set Oie report title 
start the report 
print the Revenues heading 
print the Revenues accounts 
print the TotsI Revenues 
print the Cost of Goods Sold heading 
print the Beginning Inventories accounts 
print the total of the Beginning Inventories accounts 
print the Purchases accounts 
print the total Goods Available for Sale 
print the Ending Inventories accounts 
print the Total Cost of Goods Sold 
print the Gross Profit 
print the Operating Expenses heading 
print the Expenses accounts 
print the Total Operating Expenses 
print the Income from Operations 
print the Other Revenues & Expenses heading 
print the Other Revenues & Expenses accounfs 
print the Total Other Revenues & Expenses 
print the Net Income 
close the report window 
set the new report title 
start the report 
print the Assets heading 
print the Current Assets heading 
print the Current Assets accounts 
print the Ending Inventories accounts 
print the Total Current Assets 
print the Plant Assets heading 
print the Plant Assets accounts 
print the Total Plant Assets 
print the Total Assets 
print the Liabilities heading 
print the Current Liabilities heading 
print tfie Current Liabilities accounts 
print the Total Current Liabilities 
print the Long-Term Liabilities heading 
print the Long-Term Liabilities accounts 
print the Totai Long-Term Liabiiities 
print the Total Liabilities 
print the Capitai heading 
print the Capital accounts 
print the Net income 
print the Total Capital 
print the Total Liabilities and Capitai 
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Function Definition: inputstring 

The inputstring function is used to enter string data. Its implementation is il¬ 
lustrated by the following pseudocode: 


while (TRUE) { 

set the cursor position to the start of the data entry field 
display the string 
If (display only) 
return 

set the cursor position to the end of the string 

turn on the cursor 

get a key 

turn off the cursor 

switch (key) { 

case BACKSPACE- 
if (Inull string) 

last string character - 0 
go get another key 
case HOME- 

set string to a null string 
go get another key 
default: 

If (key Is printable) { 

If (field Isn’t full) 

string = string + character 

} 

else 

return(key) 

} 

} 


Function Definition: inputdoiiars 

The inputdoiiars function is used to enter dollar values. Its implementation is il¬ 
lustrated by the following pseudocode: 
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if (value Is less tiian a penny) 
set value to zero 
set the sign flag 
set the decimal point flag 
while (TRUE) { 

if (value = = -0.00) 

format the field for -0.00 
else { 

format the field 
if (field overflowed) 
set the field to all *s 

display the data entry field 
if (display only) 
return 

set the cursor position to the n&rt digit’s position 

turn the cursor on 

get a key 

turn the cursor off 

switch (key) { 

case BACKSPACE- 
if (value 1= 0) { 

if (decimal point has been pressed) { 
switch decimal count) { 
case no cen^: 

decimal point 

flag = FALSE 
go get another key 
default: 

set last digit entered to 0 
set the new value 
decrement the decimal count 

} 

} 

else { 

set last digit entered to 0 
value = new string value 110 

} 

if (value = = 0) 
sign = FALSE 

} 

go get another key 
continued... 
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...from previous page 
case 

If (decimal point hasn’t been pressed) { 
decimal point flag = TRUE 
decimal count = 0 

} 

go get another key 
case 

value = -value 
sign flag = Isign flag 
go get another key 
case HOME* 
value = 0 

decimal point flag = FALSE 
sign flag = FALSE 
go get another key 
default: 

if (k^ Is a digit) { 

if (decimal polirt has been pressed) { 
switch (decimal count): 
case no pennies: 

save key as tenths 
set the new value 
bump the decimal count 
go get another key 
case tenths already entered: 
save key as hundredths 
set the new value 
bump the decimal count 
go get another key 

} ^ 

else { 

If (data entry field isn’t full) { 
save the new ones digit 
set the new value 

} 

} 

if (value >= 0&& sign flag = = TRUE) 
make the value negative 

else 

return(key) 

} 

} 
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Function Definition: inputnumber 

The inputnumber function is used to enter account numbers. Its implementation 
is illustrated by the following pseudocode: 


while (TRUE) { 

If (value I = 0) 

format the display string 
else 

set the display string to a blank field 
display the data entry field 
If (display only) 
return 

set the cumor position to the end of the data entry field 

turn the cursor on 

get a key 

turn the cursor off 

switch (key) { 

case BACKSPACE- 
If (value != 0) 

set the ones digit to zero 
value = value /10 
go get another key 
case HOME: 
value = 0 
go get another key 
default: 

If (key Is a digit) { 

If (data entry field Isn’t full) 
set the new value 

} 

else 

return(key) 

} 

} 


Function Definition: compare 

The compare function is used by the qsort and bsearch functions to compare ac¬ 
count structures. Its implementation is illustrated by the following pseudocode: 
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if (first account number < second account number) 
return(-l) 

if (first account number > second account number) 
retum(l) 
return(O) 


Function Definition: savenums 

The savenums function saves the number of accounts and the number of transac¬ 
tions to the company data file. Its implementation is illustrated by the following 
pseudocode: 


set the fiie position to the number of accounts 
write the number of accounts 
write the number of transactions 


Function Definition: saveaccts 

The saveaccts function saves the general ledger accounts to the accounts file. Its 
implementation is illustrated by the following pseudocode: 


set the fiie position to the start of the accounts fiie 
write the accounts 


Function Definition: savetrans 

The savetrans function saves the general ledger transactions to the transactions 
file. Its implementation is illustrated by the following pseudocode: 


set the fiie position to the start of the transactions fiie 
write the transactions 
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Function Definition: start.report 

The start_report function opens the report window and prints the first heading. 
Its implementation is illustrated by the following pseudocode: 


set the report window message 
open the window 
display the report message 
set the page number 
print the report heading 


Function Definition: prinLheading 

The piint^heading function prints a report heading. Its implementation is il 
lustrated ^ the following pseudocode: 


print a carriage return 
print the company name 
print the report title 
print the date 
print the page number 
set the number of lines 


Function Definition: printjine 

The print line function prints a report line. Its implementation is illustrated by 
the foUo^^g pseudocode: 


print the report line 
If (page is full) { 
do a form feed 
print a report heading 

} 
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Function Definition: print_accounts 

The priiit_accoiints function is used the fs_func function to print account 
groups. Its implementation is illustrated by the following pseudocode: 


total = 0 

for(i = 0;l < number of accounts; i + +) { 

If (account number Is In the specified range) { 

format the report line for the account name and balance 

print the report line 

total + = account balance 

} 

} 

if (account range is Current Assets or Capita^ 
print an underline 
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GLOBAL VARIABLES 


As mentioned in Chapter 3, the WINDOWS toolbox defines a number of global 
variables in the windows Ji header file. These global variables are used by the ap¬ 
plication programmer to change many of the WINDOWS operating 
environment’s default settings. Thus, WINDOWS is easily customized to meet 
the needs of a variety of application programs. 


_menu_att __ 

Example: int _menu_att; 

Description: The _menujatt variable is used by the WINDOWS operating en¬ 
vironment as the default display attribute for the dialog_menu, 
popup, and pulldown functions. Initially, _menu_att is set in 
menus.c to a value of 0x70. However, the” menu_att variable 
can be changed to suit a particular application program’s needs. 


_menujiighlight _ 

Example: int _menu_highlight; 

Description: The _menu_highlight variable is used by the WINDOWS opera¬ 
ting environment as the default display attribute for highlighting 
menu selections. Initially, _menu_highlight is set in menus.c to 
a value of 0x07. However, the _menu_highlight variable can be 
changed to suit a particular application program’s needs. 


_menuJiotkey _ 

Example: int _menu_hotkqr; 

Description: The _menu_hotkey variable is used by the WINDOWS operating 
environment as the default display attribute for menu hotkeys. 
Initially, menu_hotkqr is set in menus.c to a value of 0x7f. 
However, the menu_hotkey variable can be changed to suit a 
particular application program’s needs. 
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_nonibm _ 

Example: int _nonibm; 

Description: The _nonibm variable is used by the WINDOWS operating en¬ 
vironment to eliminate snow on an IBM CGA. When it is called, 
the settextSO function determines the current display adapter’s 
type. If a CGA adapter is present, settextSO sets the _nonibm 
variable to FALSE (0). If an MDA or EGA adapter is present, 
settextSO sets the nonibm variable to TRUE (0). If the current 
display adapter is a non-IBM CGA, it is the program’s responsi¬ 
bility to manually set the _nonibm variable to TRUE. Although 
this is strictly optional, manually setting the _nonibm variable 
will considerably speed up display input/output. 


STANDARD DATATYPES 


In windows.h, the WINDOWS toolbox defines a number of useful data types. 


boolean _ 

Example: typedef int boolean; 

Description: The boolean data type is used to define logical variables. To 
assist in the use of the boolean data type, the following two 
constants are defined in windows.h: 


Constant Value 

TRUE 1 

FALSE 0 
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MENU _ 

Example: ^edef struct { 

char *string; 
int hotkey', 
void (*fimction)(); 
void 

}MENU; 

Description: The MENU structure is used to define menu items for the 

WINDOWS toolbox menu functions. The MENU structure is 
used as follows: 


Data Type 
string 


hotkey 


(*function)0 


(*help)0 


MENUJEAD _ 

Example: typedef struct { 

char *heading; 
int hotkey, number, 
MENU *mptr, 
}MENU_HEAD; 


Description 

Pointer to a string, which defines the menu 
item. 

Position in string of the menu item’s hotkey 
character. 

Pointer to a function, which is executed if the 
menu item is selected. 

Pointer to a function, which is executed if 
help is requested for the highlighted menu 
item. 
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Description: The MENU HEAD structure is used to define the number of 
menus for the pulldown and puUdown bar functions. The 
MENU HEAD structure is used as follows: 


Data Type Description 


heading Pointer to a string, which defines the menu’s 

heading. 

hotkey Position in heading of the menu’s pull-down 

hotkey character. 


number 


Number of items in the puU-down menu. 


mptr Pointer to an array of MENU structures, 

which defines the puU-down menu. 


WINDOW _ 

Example: typedef struct { 

int rowl, coll, row2, coll’, 
char *videoarray’, 

} WINDOW; 

Description: The WINDOW structure is used to hold the coordinates and a 
pointer to a dynamically created display screen window. The 
WINDOW structure is used as follows: 


Data Type 

rowl 

coll 

rowl 

coll 

videoarray 


Description 

Upper left row of the window. 

Upper left column of the window. 

Lower right row of the window. 

Lower right column of the window. 

Pointer to a dynamically created array, which 
holds the previous contents of the display 
screen window. 
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FUNCTIONS __ 

The WINDOWS toolbox contains numerous functions. To facilitate their use in 
application programs, this section describes the WINDOWS functions as follows: 


Summary: Presents an exact syntactic model for each of the WINDOWS 

functions. 

Description: Describes a function’s purpose and how it is used in an applica¬ 
tion program. 

Return Value: Explains any of the possible return values for a WINDOWS 
function. 

See Also: Lists any similar or related WINDOWS functions. 

Example: Illustrates how a WINDOWS function could actually be used in 

an application program. 


clearone _ 

Summary: #include "windows.h" 

void clearone(/i£>iv, col, att); 

int row, col; (character position) 

int att; (character attribute) 

Description: The clearone macro displays a space at the position defined by 
(mw, cot). Additionally, the position’s attribute is set to att. 

Return Value: No value is returned. 

Example: The following program displays a message and uses the clearone 

macro to erase the T at the start of the message. 
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clearscreen 

Summaiy: 

Description: 

Return Value: 
Example: 


#include <stdio.h> 

#include ”winck)ws.h“ 

mainO 

C 

save_initial_video(); 

printstringd, 1, "This is a demo of the clearone macro"); 

waitkeyC); 

clearoned, 7); 

waitkeyO; 

exit(O); 

> 


#include "windows.h" 

void clearscreen(roivi, coll, row2, coll, att); 
int rowl, coll ; (upper left comer of the text window) 

int rowl, coll; (lower right comer of the text window) 

int att; (text window attribute) 

The clearscreen macro clears an area of the display screen de¬ 
fined by the coordinates (mwl, coll) and (rowl, coll). Addition¬ 
ally, the cleared text window’s attributes are set to att. 

No value is returned. 

The following program demonstrates how the clearscreen macro 
is used to clear the display screen. 


#include <stdio.h> 

#include "windows.h" 

mainO 

C 

settextSOO; 

clearscreend, 1, 25, 80, 7); 

printstringd, 1, "The screen has been cleared!"); 

waitkeyO; 

exit(O); 

> 
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Glose.window _ 

Sununaiy: #include "windows.h" 

WINDOW *close_window(i«mit>iv); 

WINDOW *window; (pointer to a previously opened text 

window) 

Description: The ciose_window function closes a previously opened text 
window. ” 

Return Value: A NULL pointer of type WINDOW is returned by the 
closewindow function. 

See Also: open_window 

Example: The following program opens a text window at the coordinates 

(1,20) and (15,50). After waiting for a to be pressed, the 

program uses the close_window Unction to close the text window. 


#include <stdio.h> 

#include “windows.h” 

mainO 

WINDOW *window; 
save_initial_video(); 

window = open^windowd, 20, 15, 50, _DRAW, 0x70, _SINGLE_LINE, 0x70); 
waitkeyO; 

window = cIose_window(window); 
exitCO); 

> 
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cursoroff, cursoron _ 

Summaiy: #include "windows.h" 

void cursoroff(void); 
void cursoron(void); 

Description: The cursoroff function turns the cursor off. The cursoron 
function turns the cursor on. 

Return Value: No value is returned. 

Example: The following program demonstrates the cursoroff and cursoron 

functions by first turning the cursor off and then turning the 
cursor back on again. 

#include <stdio.h> 

#include "windows-h" 

mafnO 

i 

settextSOO; 

clearscreend, 1, 25, 80, 7); 
cursoroffO; 

printstringd, 1, "Press any key to continue."); 

waftkeyO; 
cursoronC); 
exit(O); 

> 

dialog,menu _ 

Summary: #include "windows.h" 

int dialog_menu(n>w, col, nitems, menu, ntitles, [title ,...]); 
int row, col; (screen position to center the menu on) 

int nitems; (number of menu items) 

MENU *menu; (pointer to an array of MENU structures) 

int ntitles; (number of titles) 

char *titles; (title pointer) 
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Description: The dialog_menu function displays a dialog box menu by center¬ 
ing it at the position defined (row, cot). If any titles are speci¬ 
fied, they are di^layed above the menu items. Selection of a 
menu item is accomplished pressing its indicated hotk^. 
Furthermore, the double-lin^ menu item can be selected by 
simply pressing the Enter k^. The double-lined highlighting is 
moved from one menu item to the next pressing either the 
Left Or Right Arrow key. 

Return Value: If the menu item has a NULL function pointer, the dialog menu 
function returns the value of the item’s hotkey. Otherwise, the 
dialog_menu function returns a value of zero. 

Example: The following program demonstrates the use of the dialog menu 

function by asking whether or not a file should be saved. If in¬ 
structed to do so, the dialog box menu will execute the simulated 
save file function. 


#inclucie <stdio.h> 

#include “windows.h” 

void save_file<void); 

static MENU menu[] = < 

C'Yes”, 0, save_file>, 
C»No»>, 

C"Cancel"> >; 


mainO 

C 

save_initial_video<); 

while (dialog_menu(13, 40, 3, menu, 2, “The file hasn't been saved!", 
“Do you want me to save it?“) 1= 'C') ; 
exit(O); 

> 

void save_file(void) 

display_error<“The file has been saved“); 

> 
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Summaiy: #mclude "windows-h" 

void di^lay_error(emneM); 

char *emness; (error message pointer) 

Description: The display_error function uses the dialog_menu function to 
display an eiror message (errmess) on the ^nter of the display 
screen. 


Return Value: No value is returned. 

See Also: dlal(^_menu 

Example: The following program illustrates how the display_error function 

is used to simulate a disk read error. 


#include <stdio.h> 

#include "windows.h“ 

mainO 

C 

save_f nitial_video<); 
display_error("Disk Read Error"); 
exit(O); 

> 
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drawbox 


Summary: 


#include "windows.h" 

void far drawbox(roivi, coll, row2, coll, Imetype, att); 
int rowl, coll ; (upper left comer of the trat window) 

int rowl, coll; (lower right comer of the text window) 

int Imetype; (line type flag) 

int att; (border attribute) 


Description: The drawbox function draws a border around a text window 

in which coordinates are defined by the points {rowl, coll) and 
{rowl, coll). Additionally, the border’s attributes are set to att. 
The linetype parameter can be one of the following constants 
(defined in windows.h): 


Constant Action 


SINGLE_LINE Draws a single-lined border. 

'DOUBLE^LINE Draws a double-lined border. 


Return Value: No value is returned. 


Example: The following program demonstrates how the drawbox function is 

used to draw a double-lined box in the right half of the display 
screen. 


#1nclucle <stdio.h> 

#include "windows.h“ 

mainO 

i 

save_initial_video(); 

drawboxd, 41, 25, 80, ^DOUBLE^LINE, 0x70); 

waitkeyO; 

exit(O); 

> 
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draw_winnuw 

Summary: 


Description: 


Return Value: 
See Also: 
Example: 


#include "windows.h" 

void draw_window(/iowi, coll, row2, coll, watt, 
bflg lbatt\)-. 


int rowl, coll', 
int rowl, coll', 
int watt', 
mtbflg', 
mi batt'. 


(upper left comer of the text window) 
(lower right comer of the text window) 
(text window attribute) 

(border flag) 

(border attribute) 


The drawjvindow function draws a window at the coordinates 
defined (rowl, coll) and (rowl, coll). The window is cleared 
and aU attributes are set to watt. If a border is requested by the 
bflg parameter, it is drawn with an attribute of batt. The bflg 
parameter can be one of the following constants (defined in 
windows.h): 


Constant 

_NO_BORDER 

SINGLELINE 

DOUBLEUNE 


Action 

The window is drawn without a border. 

The window is drawn with a single-lined 
border. 

The window is drawn with a double-lined 
border. 


No value is returned. 
open_window 

The following program demonstrates how the drawjvindow 
function can be used to draw a double-lined window at the 
coordinates (10,30) and (15,50). 
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errorJiandler 
Summary: 

Description: 


Return Value: 
See Also: 
Example: 


#{nclude <std{o.h> 

#fnclude "windows.h" 

mainO 

t 

save_i n11 {a l_v{deo(); 

draw.windowdO, 30, 15, 50, 0x70, _DOUBLE_LIME, 0x70); 

waitkeyO; 

exit(O); 

> 


#include "wmdows.h" 
void error_handler(); 

The error handler function is an MS-DOS INT Qx24 hardware 
error handler. Once its address has been passed to MS-DOS, 
the error_handler function will trap any hardware errors by pop¬ 
ping up on the screen and displaying an appropriate error mes¬ 
sage. Additionally, error_handler ask the operator to select 
one of three menu items: Ignore the error. Retry the operation, 
or Abort the program. 

No value is returned. 

dialog_menu 

The following program demonstrates how the error_handler 
function traps an open disk drive door. 
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#include <stdio.h> 
#include “windows-h" 


mainO 

C 

FILE ^stream; 

_harderr<error_handler); 
save_initial_video(); 

display_error(“Please open the Drive A door and press a key”); 
if ((stream = fopen(”a:dummy.tst", “r“)) != NULL) 
fclose(stream); 
exit(O); 

> 


filione _ 

Summaiy: #include "windows.h" 

void fillone(/Y>w, col, chr, att); 
int row, col; (screen position) 

int chr, (character) 

int att; (attribute) 

Description: The filione function sets the display screen position defined by 
(row, cot) to the specified character/attribute pair (chr/att). 

Return Value: No value is returned. 

Example: The following program demonstrates how the filione function is 

used to display a black-on-white M at position (4,10) 


#include <stdio.h> 

#include “windows.h" 

mainO 

< 

save_initial_video(); 
fillone(4, 10, 'M', 0x70); 
waitkeyO; 
exit(O); 

> 
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fillscreen 

Summary: 


#include Vindows.h" 

void far fillscreen(roH'i, coll, row2, coll, chr, att); 

int rowl, coll; (upper left comer of the text window) 

int rowl, coll; (lower right comer of the text window) 

int chr, (text window character) 

int att; (text window attribute) 


Description: The fillscreen function fills the text window defined the coor¬ 
dinates (rowl, coll) and (rowl, coll) with the character/attri- 
bute pair specified by (chr/att). 


Return Value: No value is returned. 


Example: The following program demonstrates how the fillscreen function 

is used to fill the left half of the display screen with Rs. 


#!nclucie <stdio.h> 

#inclucie "windows.h" 

mainO 

C 

save_initial_video(); 
fiUscreend, 1, 25, 50, 'R', 7); 
waitkeyO; 
exit(O); 

> 


182 



Appendix A: WINDOWS Reference Guide 


getcurpos __ 

Summary: #include Vindows.h" 

void getcurpos(/t)H', col, sline, eline); 
int *row; (cursor row position) 

int *col; (cursor column position) 

int *slme; (cursor starting line) 

int *elme; (cursor ending line) 

Description: The getcurpos function retrieves the cursor values by returning 
the cursor row position in mw, the cursor colunm position in col, 
the cursor character’s starting line in sUne, and the cursor char¬ 
acter’s ending line in eUne. 

Return Value: No value is returned. 

Example: Upon entry, the following program uses the getcurpos function 

to obtain the cursor values. After obtaining the cursor values, 
the display screen is cleared and the information is displayed. 


#inclucle <std{o.h> 

#include "windows. 

mainO 

C 

int row, col, sline, eline; 
settextSOO; 

getcurposC&row, &col, &sline, &eline); 
clearscreend, 1, 25, 80, 7); 
setcurposd, 1); 

printf(”Row: %d Column: %d Starting Line: %d Ending Line: Xd\n", 
row, col, sline, eline); 
waitkeyO; 
exit(O); 

> 
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horizontal_bar _ 

Summaiy: #include "windows.h" 

void honzontal_bar(wmddH', curpos, total, att); 

WINDOW *wmdow; (pointer to the window’s dynamic 

definition structure) 

int curpos', (current line position) 

int total, (line length) 

int att, (scroll bar attribute) 

Description: The horizontal_bar function displays a horizontal scroll bar at 
the bottom of apreviously opened text window in which coordi¬ 
nates are defined by window. The scroll bar setting is derived 
by dividing curpos by total. Additionally, the scroll bar is dis¬ 
played with an attribute of att. 

Return Value: No value is returned. 

See Also: vertical_bar and open_window 

Example: The following program demonstrates how the horizontal_bar func¬ 

tion is used to display a variety of line positions. 


#include <8tdfo.h> 

#include “windows.h” 

mainO 

i 

WINDOW *w1ndow; 
save_initial_video(); 

window = open_window(1, 30, 10, 70, _DRAW, 7, _SINGLE_LINE, 7); 

horizontal_bar(window, 0, 100, 0x70); 

waitkeyO; 

hori 2 ontal_bar<window, 50, 100, 0x70); 
waitkeyO; 

horizontal_bar(window, 100, 100, 0x70); 

waitkeyO; 

exit(O); 

> 
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hotstring 

Sununaiy: 


#include "windows.h" 
void hotstring(/t»i', col, hotkey, hatt, string); 
int row, col; (string position) 

int hotkey; (hotkey position) 

int hatt; (hotk^ attribute) 

char *string; (string pointer) 


Description: The hotstring function displays a string at the display screen 
position defined by (row, cot). Additionally, the string’s hotkey 
character attribute is set to hatt. 


Return Value: No value is returned. 


Example: The following program demonstrates how the hotstring function 

is used to display a hotstring at the beginning of the middle dis¬ 
play line. 


#inclucle <stdio.h> 

#include "windows.h" 

mainO 

C 

WINDOW *window; 
save_initial_video(); 

hotstring(13, 1, 0, 0x70, "This is a hotstring demo!"); 

waitkeyO; 

exit(O); 

> 
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open^window 

Simnnaiy: 


Description: 


#include "windows.h" 

WINDOW *open_window(/t>ivi, coll, row2, coll, 
dflgi, watt, bflgl fca«]]); 

int wwl, coll', (upper left comer of the text window) 

int rowl, coll; (lower right comer of the text window) 

int dflg; (draw window flag) 

int watt; (text window attribute) 

int blfg; (border flag) 

mtbatt; (border attribute) 


The open window function dynamically opens a text window at 
the coordinates defined by (wwl, coll) and (wwl, coll). If dflg 
so indicates, the window is ^awn by clearing the entire window 
and setting the window’s attributes to watt. Furthermore, a bor¬ 
der will be drawn according to the bflg. If a border is drawn, its 
attributes are set to batt. Ihe dflg parameter can be one of the 
following constants (defined in windows.h): 


Constant Action 

_DRAW Draw the window. 

NO DRAW Leave the window’s contents intact. 


The bflg parameter can be one of the following constants (defined 
in windows.h): 


Constant Action 

NO BORDER The window is drawn without a border. 

SINGLE LINE The window is drawn with a single-lined 

** ” border. 

DOUBLE LINE The window is drawn with a double-lined 

"" ~ border. 
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Return Value: The open window function returns a structure pointer of type 
WINDOW. 

See Also: close_window and draw_window 

Example: The following program demonstrates how the open_window func¬ 

tion is used to dynamically open a text window at the coordinates 
(1,20) and (15,50). 


#include <stdfo.h> 

#include “windows.h" 

mainO 

t 

WINDOW *window; 
save_initia l_video(); 

window = open_window(1, 20, 15, 50, _DRAW, 0x70, _SINGLE_LINE, 0x70); 
waitkeyO; 

window - close_window(window); 
exit(O); 

} 


popup _ 

Summary: #include "windows.h" 

int popup(««m6er, menu, row, col); 

int number, (number of menu items) 

MENU *menu; (pointer to an array of MENU structures) 

int row; (upper row for the menu) 

int col; (column to center the menu on) 


Description: The popup function displays a pop-up menu starting at row and 
centered on the column defined col. Selection of a menu 
item is accomplished by pressing its indicated hotkey. Further¬ 
more, the highlighted menu item can be selected by pressing 
the Enter key. Help, if it is available, can be requested for the 
highlighted menu item by pressing FI. The highlighting can be 
moved by pressing the Up or Down Arrow key. Pressing the Esc 
key will cancel the menu. 
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Return Value: If the selected menu item’s function pointer is NIJLL» the popup 
function returns the value of the menu item’s hotkey. Other¬ 
wise, the popup function calls the menu item’s function and re¬ 
turns a value of zero. 

Example: The following program uses the popup function to display a 

three-item pop-up menu. The program will continuously display 
the menu untU the "Exit the Program” menu item is selected by 
the operator. 


#include <stdio.h> 
#inclucle ''windows.h“ 


void save_fiIe(void); 
void load_file(void); 
void sf_help(void); 
void lf_help<void); 

static MENU menu[] = C 

<"Save the File", 0, save_file, sf_help>, 
<"Load the File", 0, load_file, lf_help>, 
<"Exit the Program"} >; 

mainO 

i 

save_initial_video(); 

while (!popup(3, menu, 3, 40)); 

exit(O); 

> 

void save_file(void) 

< 

display^error("Saving the file"); 

> 

void Ioad_fiIe(void) 

C 

display_error("Loading the file"); 

> 


continued... 
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...from previous page 

void sf_help(void) 

< 

display_error(»*Save file help**); 

> 

void lf_help(void) 

< 

display_error(**Load file help'*); 

> 


printcenter __ 

Summaiy: #include "windows.h" 

void printcenter(roiv, col, string); 

int row; (string row) 

int col; (column to center the string on) 

char *string; (string pointer) 

Description: The printcenter function di^lays string on the display row 
defined by row and centered on the column defined by col. 

Return Value: No value is returned. 

Example: The following program demonstrates how the printcenter func¬ 

tion is used to center a string on the top line of the display 
screen. 


#include <stdio.h> 

#include "windows.h" 

mainO 

C 

save_initial_video(); 

printcenterd, 40, "This message is centered on the top display line") 

waitkeyO; 

exit(O); 

> 
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printone __ 

Summaiy: #include "wmdows.h" 

void printone(roiv, col, chr); 

int row, col; (character position) 

int chr, (character) 

Description: The printone function displays a character (chr) at the position 
defined by (row, cot). 

Return Value: No value is returned. 

Example: The following program demonstrates how the printone function 

is used to display a Z at position (5,40). 


#include <stdio.h> 
#include “windows.h" 

mainO 

< 

save_initial_video(); 
printone(5, 40^ 'Z'); 
waitkeyO; 
exit<0); 

> 
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printstring __________ 

Summaiy: #include "windows.h" 

void far printstring(row, col, string); 
mtrow,col; (display screen position) 

char far *string; (string pointer) 

Description: The printstring function displays a string at the position defined 
by {row, cot). 

Return Value: No value is returned. 

Example: The following program demonstrates how printstring is used to 

display a string at position (2,10). 


#1nclude <stdio.h> 

#inclucle "windows.h" 

mainO 

C 

save_initial_video(); 

print8tring(2, 10, “This is row 2, column 10"); 

waitkeyO; 

exit(O); 

> 
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pulldown _ 

Summaiy: #include "windows.h" 

int pulldown(nme/utf, menus, row, ikey, help); 

int nmenus; (number of piill-down menus) 

MENU_HEAJD *menus; (pointer to an array of 

MENU_HEAD structures) 
int row; (menu bar row) 

int Ucey; (initial value) 

void ( *help)(yoid); (pointer to the overall help func¬ 

tion) 

Description: The pulldown function is used to implement multiple pull-down 
menus. The number of pull-down menus is defined by nmenus. 
The pulldown function recognizes the following control keys: 


KEY 


ACTION 


Alt + Heading Hotk^ Pulls down the indicated menu. 


Esc 

Left Arrow 

Ri^t Arrow 


Menu Item Hotkey 


Removes the current menu from 
the screen. 

Removes the current menu from 
the screen and pulls down the 
next menu to the left. 

Removes the current menu from 
the screen and pulls down the 
next menu to the right. 

Executes the selected menu 
item’s function. 


Enter 


^ecutes the highlighted menu 
item’s function. 
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FI 


Up Arrow 


If a menu hasn’t been pulled 
down, executes the overall help 
function deiSned by help. Other¬ 
wise, executes the h i g hlighted 
menu item’s help function. 

Moves the highlight bar up to 
the previous menu item. 


Down Arrow 


Moves the highlight bar down 
to the next menu item. 


An initial key value can be sent to the pulldown function by 
placing the appropriate value in the ik^ parameter. Other¬ 
wise, ikey must equal zero to indicate no initial key. 

Return Value: If a menu item isn’t selected, the pulldown function returns the 
value of the last key pressed. Otherwise, the pulldown function 
returns a value of zero. 

See Also: pulldown_bar 

fhmmple: The following program demonstrates how the pulldown function 

is used to implement a series of pull-down menus for a simple 
general ledger program. 


#inclucle <stdio.h> 
#fncLude "uinciows.h'* 

void save_file(void); 
void read_file(void); 
void exit_prog(void); 
void add_acc(void); 
void del_acc(void); 
void del_tra(void); 
void add_tra(void); 
void prt_coa(void); 
void led_upd(void); 
void fin_stat(void); 

continued... 
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...from previous page 

void main_help(void); 
void sf_help(void); 
void rf_help(void); 
void aa_help(void); 
void da_help(void); 
void at_help(void); 
void dt_help(void); 
void pc_help(void); 
void lu_help(void); 
void fs_help(void); 

static MENU filed = C 

<**Save the File”, 0, save_file, ^f_help>, 

<”Read the File", 0, read^file, rf_help>, 

<"Exit the Program", 0, exitj 3 rog> >; 

static MENU accounts[] = i 

€"Add an Account", 0, add^acc, aa_help>, 

^"Delete an Account", 0, del_acc, da_help> >; 

static MENU transact[] = < 

<"Add a Transaction", 0, add^tra, at_help>, 

<;"Delete a Transaction", 0, del_tra, dt_help> >; 

static MENU print[] = < 

£"Print a Chart of Accounts", 8, prt_coa, pc_help>, 
{"Print a Ledger Update", 15, led_upd, lu__help>, 
{"Print Financial Statements", 6, fin_stat, fs_help> > 

static MENU_HEAD heads[] = { 

{"File", 0, 3, file}, 

{"Accounts", 0, 2, accounts}, 

{"Transactions", 0, 2, transact}, 

{"Print", 0, 3, print} }; 

continued... 


194 




Appendix A: WINDOWS Reference Guide 


...from previous page 

mainO 

< 

save_initial_video(); 
while (TRUE) C 

setcurpos(13, 1); 

printf("%3d”, pulldown(4, heads, 1, 0, main^help)); 

> 

> 

void save_file(void) 

display_error(*'Saving the File**); 

> 

void read^file(void) 

C 

display_error(**Reading the File**); 

> 

void exitj3rog(void) 

C 

exit(O); 

> 

void add_acc(void) 

< 

display_error(**Adding an Account**); 

> 

void del_acc(void) 

C 

display__error(**Deleting an Account**); 

> 

void add_tra(void) 

display_error(**Adding a Transaction**); 

> 

continued... 
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...from previous page 

void clel_tra(void) 

i 

display_error(”Deleting a Tranaction”); 

> 

void prt_coa(void) 

i 

display_error("Printing a Chart of Accounts”); 

> 

void led_upd(void) 

C 

display_error(«Printing a Ledger Update"); 

> 

void fin_stat(void) 

C 

display_error(»Printing the Financial Statements"); 

> 

void main^helpCvoid) 

C 

display_error("Main help function"); 

> 

void sf_help(void) 

C 

display_error("Save file help function"); 

> 

void rf_help(void) 

i 

display_error("Read file help function"); 

> 

void aa_help(void) 

i 

display_error("Add account help function"); 

> 

continued... 
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...from previous page 

void da_help(void) 
i 

display_error("Delete account help function”); 

> 

void at_help(void) 
i 

display_error("Add transaction help function”); 

> 

void dt^helpCvoid) 
i 

display_error("Delete transaction help function”); 

> 

void pc_help(void) 
i 

display_error("Print chart of accounts help function”); 

> 

void lu_help(void) 
i 

display_error("Print ledger update help function”); 

> 

void fs_help(void) 
i 

display_error("Print financial statements help function”); 

> 
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pulldownjiar __ 

Summary: #mclude "wmdows.h" 

void pulldown_bar(nme/iMj', menus, row); 

int nmenus; (number of pull-down menus) 

MENU_HEAD *menus; (pointer to an array of 

iteNUHEAD structures) 
int row; (menu bar row) 

Description: The pulldown_bar function is used to display a pull-down menu 
bar on the line defuied by row. 

Return Value: No value is returned. 

See Also: pulldown 

Example: The following program demonstrates how the pulldown_bar 

function is used to display a pull-down menu bar on the top line 
of the display screen. 


#include <stdio.h> 
#include ”uinck)us.h" 


static MENU^HEAD heads[] - C 
C*FUe”>, 

<“Accounts">, 
ransact1ons”>, 
C"Print"> >; 


mafnO 

< 

save_init1al_video(); 
pulldown_bar(4, heads, 1); 
waitkeyO; 
exit(O); 

> 
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restorescreen 

Summaiy: 

Description: 

Return Value: 
See Also: 
Example: 


#include "windows.h" 

void far restorescreen(roM'i, coll, row2, coll, buffer); 
int rowl, coll ; (upper left comer of the t«rt window) 

int rowl, coll; (lower right comer of the text window) 

char far *buffer, (buffer pointer) 

The restorescreen function displays a text window, which has 
been previously saved in a buffer, at the coordinates defined 
by {rowl, coll) and {rowl, coll). Because each of the text win¬ 
dow’s characters consists of a character/attribute pair, the buffer 
must be {{rowl - rowl + 1) * {coll - coll + 1) * 2) bytes long. 

No value is returned. 

savescreen 

The following program demonstrates how the restorescreen 
function is used to display a previously saved text window ty 
saving a screen to a buffer, clearing the screen, and redisplaying 
the saved screen. 


^include <stdfo.h> 
#include “windows.h" 


static char vbuffC4000]; 

mainO 

C 

settextSOO; 

savescreend, 1, 25, 80, vbuff); 
clearscreend, 1, 25, 80, 7); 
waitkeyO; 

restorescreend, 1, 25, 80, vbuff); 

waitkeyO; 

exit(O); 

> 
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saveJnitiaLvideo _ 

Summary: #include "windows.h" 

void save_initial_video(void); 

Description: The save_initial_video function is called at the start of an appli¬ 
cation program to initialize the WINDOWS operating environ¬ 
ment, save the cursor’s position and type, save a copy of the dis¬ 
play screen, and clear the di^lay screen. When the application 
program is finished ocecuting, the save_initial_video Action will 
automatically restore the display screen’s initial contents and 
cursor settings. 

Return Value: No value is returned. 

See Also: settextSO 

Example: The following program demonstrates how the save_initial_video 

function saves and restores the original screen contents. ~ 


#inclucie <stdio.h> 
#include "windows.h" 


mainO 

i 

save_initial_video<); 

printcenter(13, 40, "This is a save_initial_video demo"); 

waitkeyO; 

exit(O); 

> 
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savescreen _^ 

Summary: #include "windows.h" 

void far savescreen(rowi, coll, row2, col2, buffer); 
int rowl, coll ; (upper left comer of the text window) 

int row2, col2; (lower right comer of the text window) 

char far ^buffer, (buffer pointer) 

Description: The savescreen function buffers a text window at the coordinates 
defined by (rowl, coll) and (ww2, col2). Because each of the 
text window’s characters consists of a character/attribute pair, 
buffer must be ((row2 - rowl + 1) * (co/2 - coll + 1) * 2) b 3 rtes 
long. 

Return Value: No value is returned. 

See Also: restorescreen 

Example: The following program uses the savescreen function to duplicate 

the left half of the display screen onto the right half of the dis- 
play screen. 


^include <stdfo.h> 

#include "windows.h" 

static char vbuff[2000]; 

mainO 

i 

settextSOO; 

savescreand, 1, 25, 40, vbuff); 
restorescreend, 41, 25, 80, vbuff); 
waitkeyO; 
exit(O); 

> 
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scrolLwindow 


nlines, direction, att) ; 

(pointer to a WnfeoW structure, 
which defines the text window’s 
coordinates) 

(number of lines to be scrolled) 
(scroll direction) 

(attribute for the cleared scroll 
lines) 

Description: The scroll_window function scrolls the contents of a text window, 
in which coordinates are defined window, for the number of 
lines defined by nlines. If attribute is a non-zero value, the nlines 
at the beginning of the scroll are cleared and their attributes are 
set to the value of att. Otherwise, the beginning scroll lines are 
left intact. The direction parameter can be one of the following 
constants (defined in windows.h): 


Summary: #include "windows.h" 

void scroll_window()vi>Ktow, 
WINDOW *window; 


int nlines-, 
int direction-, 
ini att-. 


Constant 

UP 

DOWN 

LEFT 

RIGHT 

_UPA 

DOWNA 

LEFTA 

RIGHTA 


Action 

Except for the text window’s border, scroll the win¬ 
dow up nlines. 

Except for the t®ct window’s border, scroll the win¬ 
dow down nlines. 

Except for the text window’s border, scroll the win¬ 
dow left nlines. 

Excq)t for the text window’s border, scroll the win¬ 
dow right nlines. 

Scroll the text window’s entire contents up nlines. 
Scroll the text window’s entire contents down nlines. 
Scroll the text window’s entire contents left nlines. 
Scroll the text window’s entire contents right nlines. 
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Return Value: No value is returned. 

See Also: draw_window and open_window 

Example: The following program demonstrates how the scrolljvindow 

function is used to perform a variety of scrolling opa-ations. 


#include <stdio.h> 

#inclucle "windows.h" 

mainO 

C 

int i, j; 

WINDOW window; 

save_initial_video(); 
window.rowl =1; 
window.coll = 20; 
window.rowZ =10; 
window.col2 = 60; 

draw^windowd, 20, 10, 60, 0x70, ^DOUBLE^LINE, 0x70); 
for (i =2; i < 10; i++) € 

for (j = 21; j < 60; i++) 
printone(i, j, i); 

> 

waitkeyO; 

scroll_window(&window, 1, _UP, 0x70); 
waitkeyO; 

scroU_window(&window, 1, _D0WN, 0x70); 
waitkeyO; 

scroU_window(&window, 1, _LEFT, 0x70); 
waitkeyO; 

scroU_window(&window, 1, __RIGHT, 0x70); 

waitkeyO; 

exit(O); 

> 
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setattrib __ 

Summary: #include "windows.h" 

void far setattrib(rowJ, coll, row2, coll, att); 
int rowl, coll; (upper left comer of the text window) 

int rowl, coll; (lower right comer of the text window) 

int att; (text window attribute) 

Description: The setattrib function sets an entire text window’s attributes to 
att. The text window is defined ly the coordinates (rowl, coll) 
and (rowl, coll). 

Return Value: No value is returned. 

Example: The following program demonstrates how the setattrib function is 

used to set the right half of the display screen to black characters 
on a white background. 


#include <stdio.h> 

#{nclude "windows.h" 

mainO 

r 

save_initial_video(); 
setattribd, 41, 25, 80, 0x70); 
waitkeyO; 
exit(O); 

> 
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setcurpos _ 

Summary: #indude "windows.h" 

void setcurpos(/t>M', cot)', 

int row, col', (cursor position) 

Description: The setcurpos function moves the cursor to the position defined 
ly (row, cot). 

Return Value: No value is returned. 


Example: Tlie following program demonstrates how the setcurpos function 

is used to move the cursor to the right half of the display screen’s 
center line. 


#include <stdio.h> 

#include “windows.h“ 

mainO 

C 

save_initial_video(); 
setcurpos(13, 41); 

printf("Right half of the center line"); 

waitkeyO; 

exit<0); 

> 
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setcursor _ 

SummaiT: #mclude "windows.h" 

void setcursor(j/tfie, eUne)’, 

int sUne\ (cursor starting line) 

int eline’, (cursor ending line) 

Description: The setcursor function sets the cursor character’s starting {sUne) 
and ending {eline) lines. 

Return Value: No value is returned. 

Example: The following program demonstrates how the setcursor function 

is used to set the cursor character to a completely filled block. 


#inclucle <stdio.h> 
#inclucle “windows.h” 

mainO 

C 

save_initial_video(); 
setcurposd, 1); 
setcursor(0, 7); 
cursoronC); 
waitkeyO; 
exit(O); 

> 
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setone _ 

SmninaiT: #include "windows-h" 

void setone(row, coly att); 

int row, col; (screen position) 

int att, (attribute) 

Description: The setone function sets the attribute for the position defined by 
(row, col) to att. 

Return Vaiue: No value is returned. 

Example: The following program demonstrates how the setone function is 

used to set the attribute for position (23, 2) to a black character 
on a white background. 


#fnclude <stdfo.h> 
#include “windows.h** 

mainO 

i 

save_initial_video(); 
setone(23, 2, 0x70); 
waitkeyO; 
exit(O); 

> 
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settextSO __ 

Summary: #mclude "windows.h" 

void settext80(void); 

Description: The settextSO function initializes the WINDOWS operating en¬ 
vironment. The settextSO function should always be called before 
using any of the WINDOWS toolbox functions. 

Return Value: No value is returned. 

See Also: save_lnltial_video 

Example: The following program demonstrates how the settextSO function 

is used to initialize the WINDOWS operating environment. 


#include <stdio.h> 

#inclucle “windows.h" 

mainO 

C 

settextSOO; 

clearscreenCl, 1, 25, 80, 7); 
setcurposd, 1); 
waitkeyO; 
exit(O); 

> 
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vertical_bar _ 

Summary: #include "windows-h" 

void vertical_bar(»wjddw, curpos, total, att); 

WINDOW *wmdow; (pointer to the window’s dynamic 

definition structure) 

int curpos-, (current record) 

int total’, (total number of records) 

int att-, (scroll bar attribute) 

Description: The vertical_bar function displays a vertical scroll bar at the right 
side of a pr^ously opened display window. The scroll bar set¬ 
ting is derived ty dividing curpos by total Additionally, the scroll 
bar is displayed with an attribute of att. 

Return Value: No value is returned. 


See Also: horizontal_bar and openjvindow 

Example: The following program demonstrates how the vertical_bar func¬ 

tion is used to display a variety of file positions. 


#include <stdio.h> 

#include "windows.h“ 

mainO 

C 

WINDOW *window; 
save__i ni t i a l_vi deo(); 

window = open_window(1, 30, 10, 70, _DRAW, 7, _SINGLE_LINE, 7); 

vertical_bar(window, 0, 100, 0x70); 

waitkeyO; 

verticalabar(window, 50, 100, 0x70); 
waitkeyO; 

vertical_bar(window, 100, 100, 0x70); 

waitkeyO; 

exit(O); 

> 
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waitkey __ 

Summary: #mclude "windows-h" 

int waitk^(void); 

Description: The waitkey function waits for the operator to press a key. 

Return Vaiue: The waitkey hinction returns the ASCII code for all 

nonextended-k^board keys. Extended-keyboard keys 
return a value of their scan code + 256. 

Example: The following program demonstrates how the waitkey function 

returns the values for a variety of key presses. Program execu¬ 
tion will continue until the Esc key is pressed. 


#fnclude <std{o.h> 

#inclucle "windows. 

mainO 

i 

int key; 

save_initial_video(); 
while (TRUE) {. 

if ((key = waitkeyO) == 27) 
exit(O); 

printf("%d\n", key); 

> 

> 
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As explained in Chapter 1, the IBM PC ROM BIOS video services place a wide 
variety of display input/output routines at a programmer’s disposal. This appen¬ 
dix presents a detailed look at the ROM BIOS video services that are common to 
all IBM PCs and compatiUes. Although the ROM BIOSes contained in some 
members of the PC famify (Le., the AT and computers with EGA adapters) offer 
video functions not found in the original IBM PC ROM BIOS, th^ will not be 
covered here because of their lack of portability across the entire family of IBM 
PCs and compatibles. Each of the ROM BIOS video functions is presented as 
follows: 


• Register Summary: The register summary explains how the 8086 registers 
are used to pass parameters to a ROM BIOS video function and return 
values back to the calling program. An 8086 register model is presented 
for each of the ROM BIOS video functions. Ah of the shaded registers 
in the 8086 register summaries indicate registers that are used eitW by 
the calling program to pass parameters to the ROM BIOS video function 
or Ity the ROM BIOS video function to return values back to the calling 
program. Parameter passing is siunmarized in an appropriate Call With 
section. Returned values are summarized in an appropriate Returns sec¬ 
tion. 

• Function Description: A desoription of the ROM BIOS function’s pur¬ 
pose is presented for each of the ROM BIOS video functions. Further¬ 
more, notes of special interest are provided. 

• Su^ested Macro Definition: A suggested assembly language macro 
definition is presented for each of the ROM BIOS video functions. Al¬ 
though the use of such a macro is strictly optional, macros can save 
programmers a great deal of time in developing programs that continuous¬ 
ly use the same function calls over and over. 

• Programming Example: A program fragment is presented for each of the 
ROM BIOS video functions. These examples are intended to illustrate 
how each of the ROM BIOS video functions are used in an application 
program. 
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SETVIDEO MODE (FUNCTION OOH) 

Register Summary: 


AX 

BX 

CX 

DX 


■IH 

BH 

BL 

CH 

CL 

DH 

DL 


SP 

BP 

SI 

Dl 


IP 

FLAGS 


CS 

DS 

SS 

ES 


CaUWith: 

AH = OOH 
AL = Video Mode 

Returns: 

Nothing 
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Description: ROM BIOS video function OOH sets the currently active video 
mode as follows: 


Display 

Mode 

Description 

Adapter(s) 

OOH 

40 X 25 black-and-white text 

CGA, EGA, PCjr 

OlH 

40 X 25 color text 

CGA, EGA, PCjr 

02H 

80 X 25 black-and-white text 

CGA, EGA, PCjr 

03H 

80 X 25 color text 

CGA, EGA, PCjr 

04H 

320 X 200 4-color graphics 

CGA, EGA, PCjr 

OSH 

320 X 200 4-color (color off) 

CGA, EGA, PCjr 

06H 

640 X 200 2-color graphics 

CGA, EGA, PCjr 

07H 

80 X 25 black-and-white text 

MDA,EGA 

OSH 

160 X 200 16-color graphics 

PCjr 

09H 

320 X 200 16-color graphics 

PCjr 

OAH 

640 X 200 4-color graphics 

PCjr 

ODH 

320 X 200 16-color graphics 

EGA 

OEH 

640 X 200 16-color graphics 

EGA 

OFH 

640 X 350 2-color graphics 

EGA 

lOH 

640 X 350 4/16-color graphics 

EGA 


Su^ested Macro Definition: 


macro 

vidmode 

mov 

ah,0 

mov 

al,vidmode 

int 

lOh 

endm 



Description: ROM BIOS video function OOH sets the currently active video 
mode as follows: 
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Display 

Mode 

Description 

Adapter(s) 

OOH 

40 X 25 black-and-white text 

CGA, EGA, PCjr 

OlH 

40 X 25 color text 

CGA, EGA, PCjr 

02H 

80 X 25 black-and-white text 

CGA, EGA, PCjr 

OSH 

80 X 25 color text 

CGA, EGA, PCjr 

04H 

320 X 200 4-color graphics 

CGA, EGA, PCjr 

OSH 

320 X 200 4-color (color off) 

CGA, EGA, PCjr 

06H 

640 X 200 2-color graphics 

CGA, EGA, PCjr 

07H 

80 X 25 black-and-white text 

MDA,EGA 

OSH 

160 X 200 16-color graphics 

PCjr 

09H 

320 X 200 16-color graphics 

PCjr 

OAH 

640 X 200 4-color graphics 

PCjr 

ODH 

320 X 200 16-color graphics 

EGA 

OEH 

640 X 200 16-color graphics 

EGA 

OFH 

640 X 350 2-color graphics 

EGA 

lOH 

640 X 350 4/16-coror graphics 

EGA 


Su^ested Macro Definition: 


setvidmode 


macro 

vidmode 

mov 

ah,0 

mov 

al,vidmode 

int 

lOh 

endm 



Example: The following program fragment demonstrates how ROM BIOS 
video function OOH is used to set the current video mode to the 80-column by 
25-row color text mode. 


mov 

ah,0 

;AH=Set video mode function code 

mov 

aU3 

;Set video mode to 

int 

lOh 

; 80 X 25 color mode 
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Register Siunmaiy: 
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Services 



CaUWith: 

AH = OlH 

CH = Starting cursor line 
CL = Ending cursor line 

Returns: 

Nothing 
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Description: ROM BIOS function OlH sets the starting and ending lines for the 
blinking cursor character. The default values used by most application programs 
are as follows; 


Cursor Type 

Starting Line 

Ending Line 

Mode 07H 

11 

12 

Modes OOH - OSH 

6 

7 

Turn cursor off 

32 

0 


Suggested Macro Definition: 


setcurtype 


macro 

sline,eline 

mov 

ah,1 

mov 

ch,sline 

mov 

cl,eh*ne 

int 

lOh 

endm 



Exampie: The following program fragment demonstrates how ROM BIOS video 
function OlH is used to turn the cursor off. 


mov 

ah,1 

;AH=Set cursor type function 

mov 

cx,2000h 

;CX=Turn off cursor values 

int 

10H 

;Turn off the cursor 
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SET CURSOR POSITION (FUNCTION 02H) 

Register Summary: 

CaUWith: 

AH = 02H 
BH = Page number 
DH = Cursor row 
DL = Cursor column 


Returns: 

Nothing 


IP 

FLAGS 


CS 

DS 

SS 

ES 
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Description: ROM BIOS video function 02H sets the current cursor position. In 
graphics modes, the page number passed in BH must be zero. The upper left 
comer of the screen is 0,0. The lower right comer of the screen is 24,79 in 80- 
column modes and 24,39 in 40-column modes. 


Suggested Macro Definition: 


setcurpos 


macro 

page,row,column 

mov 

ah,2 

mov 

bh,page 

mov 

dh,row 

mov 

dl,column 

endm 



Example: The following program fragment demonstrates how ROM BIOS video 
function 02H is used to home the cursor. 


mov 

ah,2 

;AH=Set cursor 

position function code 

mov 

bh,0 

;BH=Page 0 


xor 

dx,dx 

;Set cursor to upper left hand corner 

int 

10h 

;Position the 

cursor 
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READ CURSOR VALUES (FUNCTION 03H 

Register Siunmaiy: 



CaUWith: 

AH = OSH 

BH = Page number 

Returns: 

CH = Cursor starting line 
CL = Cursor ending line 
DH = Cursor row position 
DL = Cursor column position 
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Description: ROM BIOS video function OSH retrieves the cursor character’s 
starting line, the cursor character’s ending line, the cursor row position, and the 
cursor colunm position. In graphics modes, the page number passed in BH must 
be zero. 


Suggested Macro Definition: 


readcurval 


macro 

page 

mov 

ah,3 

mov 

bh,page 

endm 



Example: The following program fragment demonstrates how ROM BIOS video 
function OSH is used to retrieve the page zero cursor values. 


mov 

ah,3 

;AH=Read cursor values function code 

mov 

bh,0 

;BH-Page 0 

int 

lOh 

;Go get the values 
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READ LIGHT PEW VALUES (FUNCTION 04H> 

Register Summaiy: 


AX 

BX 

CX 

DX 



SP 

BP 

SI 

Dl 


IP 


FLAGS 


CS 

DS 

SS 

ES 


CaUWith: 


AH = 04H 


Returns: 

AH = 0 if light pen isn’t triggered 
1 if light pen is triggered 

CH = Pixel row 
BX = Pixel column 
DH = Character row 
DL = Character column 
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Description: ROM BIOS video function 04H returns the light pen’s trigger status, 
pixel position, and character position. 


Su^ested Macro Definition: 


readpen macro 

mov ah,4 
int lOh 
int lOh 
endm 


Example: The following program fragment demonstrates how ROM BIOS video 
function 04H is used to retrieve the li^t pen values. Note that the following code 
fragment will perform a continuous loop until the light pen is triggered. 


loop: 


mov 

ah,4 

;AH=Read light pen 

function code 

int 

lOh 

;Get the light pen 

values 

test 

ah,l 

;Loop till the 


jz 

loop 

; pen is triggered 
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SELECT DISPLAY PAGE IFUNCTION OSHl 

Register Summaiy: 


AX 


BX 

BH 

BL 

CX 

CH 

CL 

DX 

DH 

DL 


SP 

BP 

SI 

Dl 


IP 


FLAGS 


CS 

DS 

SS 

ES 


CaUWith: 

AH = OSH 

AL = Page number 


Returns: 

Nothing 
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Description: ROM BIOS video fimction OSH selects the currently active display 
page. The maximum allowable page nuniber varies according to the video mode 
and the display adapter as follows: 


Mode(s) 

Adapter 

Allowable 

Page Numbers 

OOH and OlH 

CGA 

0to7 

02H and 03H 

CGA 

OtoS 

02H, OSH, and ODH 

EGA 

0to7 

OEH 

EGA 

OtoS 

OFH and lOH 

EGA 

0 to 1 


Suggested Macro Definition: 


seldisppag 


macro 

page 

mov 

ah,5 

mov 

al,page 

int 

10h 

endm 



Example: The following program fragment demonstrates how ROM BIOS 
video function OSH is used to select display page 1. 


mov 

ah,5 

;AH=Select page function code 

mov 

al,1 

;Select 

int 

lOh 

; page 1 
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SCROLL WINDOW UP (FUNCTION 06H) 

Register SummaiT: 



Call With: 

AH = 06H 

AL = Number of scroll lines 
BH = Attribute for the cleared area 

CH = Upper left row 
CL = Upper left column 
DH = Lower right row 
DL = Lower right column 

Returns: 

Nothing 
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Description: ROM BIOS video function 06H scrolls a display screen window’s 
contents upward. If the number of lines passed in AL is equal to zero, the entire 
window will be cleared. Otherwise, only the specified number of lines in AL will 
be scrolled and cleared. 


Suggested Macro Definition: 


windowup 


macro 

rowl,coll,row2,col2,lines,att 

mov 

ah,6 

mov 

al,lines 

mov 

bh,att 

mov 

ch,rou1 

mov 

cl,col1 

mov 

dh,row2 

mov 

dl,col2 

int 

endm 

10h 


Example: The following program fragment demonstrates how ROM BIOS video 
function 06H is used to clear the left half of the display screen. 


mov 

ah,6 

;AH=Scroll window up function code 

mov 

al,0 

;AL=Clear the whole window 

mov 

bh,7 

;BH=Normal attribute 

mov 

ch,0 

;CH=Upper left row 

mov 

cl,0 

;CL=Upper left column 

mov 

dh,24 

;DH=Lower right row 

mov 

dl,39 

;DL=Lower right column 

int 

lOh 

;Clear the screen 
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SCROLL WINDOW DOWN (FUNCTION 07H) 

Register Summaiy: 


AX 

BX 

CX 

DX 




i' • ^ 




CaUWith: 

AH = 07H 

AL = Number of scroll lines 
BH = Attribute for the cleared area 

CH = Upper left row 
CL = Upper left column 
DH = Lower right row 
DL = Lower right column 

Returns: 

Nothing 
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Description: ROM BIOS video function 07H scrolls a display screen window’s 
contents downward. If the number of lines passed in AL is equal to zero, the win¬ 
dow will be completely cleared. Otherwise, only the niimber of lines specified in 
AL will be scrolled and cleared. 


Suggested Macro Definition: 


windowdoun 


macro rowl,coll,row2,col2,lines,att 

mov ah,7 

mov al,lines 

mov bh,att 

mov cfL row1 

mov cl)col1 

mov dh,rou2 

mov dl,col2 

int lOh 

endm 


E^mple: The following program fragment demonstrates how ROM BIOS video 
function 07H is used to clear the right half of the display screen’s top ten lines. 


mov 

ah,7 

;AH=Scroll window down function code 

mov 

al,0 

;ALsClear the whole window 

mov 

bh,7 

;BHsNormal attribute 

mov 

ch,0 

;CH=Upper left row 

mov 

cl,40 

;CLsUpper left column 

mov 

dh,9 

;DH=Lower right row 

mov 

dl,79 

;DLsLower right column 

int 

lOh 

;Clear the window 
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READ CHARACTER/ATTRiBUTE PAIR (FUNCTION OSH) 

Register Summary: 

AX 
BX 
CX 
DX 


AH = Attribute 
AL = ASCHcode 


IP 

FLAGS 


CS 

DS 

SS 

ES 




CaUwith: 

AH = OSH 

BH = Page number 

Returns: 
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Description: ROM BIOS video function OSH retrieves the character/attribute 
pair located at the current cursor position. While in graphics modes, the page 
number passed in BH must be zero. 


Suggested Macro Definition: 


readpair 


macro 

page 

mov 

ah,8 

mov 

bh,page 

int 

10h 

endm 



Example: The following program fragment demonstrates how ROM BIOS video 
function OSH is used to read the character/attribute pair in the upper left comer 
of the display screen. 


mov 

ah,2 

;AH=Set cursor function code 

mov 

bh,0 

;BH=Page 0 

mov 

dh,0 

;DH=Cursor row position 

mov 

dl,0 

;DL=Cursor column position 

int 

10h 

;Home the cursor 

mov 

ah,8 

;AH=Read pair function code 

mov 

bh,0 

;BH=Page 0 

int 

10h 

;Get the char/att pair 
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WRITE CHARACTER/ATTRIBUTE PAIR (FUNCTION 09H) 

Register SummaiT: 

CaUWith: 

AH = 09H 
AL = ASCHcode 
BH = Page number 
BL = Attribute 
CX = Number of characters 


Returns: 

Nothing 


IP 

FLAGS 


CS 

DS 

SS 

ES 


AX 

BX 

CX 

DX 
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Description: ROM BIOS video function 09H di^lays a specified number of 
character/attribute pairs, beginning at the current cursor position. The cursor 
position is not updated by ROM BIOS video function 09H. In graphics modes, 
the page number passed in BH must equal zero. 


Suggested Macro Definition: 


writepair 


macro page,char,att,number 

mov ah,9 

mov aI,char 

mov bh,page 

mov bl,att 

mov cx,number 

int lOh 

endm 


Example: The following program fragment demonstrates how ROM BIOS video 
function 09H is used to completely fill the bottom line of the display screen with 
an underline character. 


mov 

ah,2 

;AH=Set cursor function code 

mov 

bh,0 

;BH=Page 0 

mov 

dh,24 

;DH=Cursor row position 

mov 

dl,0 

;DL=Cursor column position 

int 

10h 

;Move the cursor 

mov 

ah,9 

;AH=Write pair function code 

mov 

ai/J 

;AL=Underline character 

mov 

bh,0 

;BH-Page 0 

mov 

bl,7 

;BL=Normal attribute 

mov 

cx,80 

;CX=Line length 

int 

10h 

jDisplay the line 
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WRITE CHARACTERS (FUNCTION OAH) 

Register Summary: 


AX 

BX 

CX 

DX 


SSI 

■i • 


DH 

DL 



CaUWith: 

AH = OAH 

AL = ASCHcode 

BH = Page number 

BL = Color (Graphics only) 

CX = Number of characters 

Returns: 

Nothing 
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Description: ROM BIOS video function OAH writes a specified number of 
characters, beginning at the current cursor position. The cursor position is not 
updated by ROM BIOS video function OAH. In graphics modes, the page num¬ 
ber passed in BH must be zero. 


Suggested Macro Definition: 


writechar 


macro 

page,char,number,color 

mov 

ah,0ah 

mov 

al,char 

mov 

bh,page 

ifnb 

<color> 

mov 

endif 

bl,color 

mov 

cx,number 

int 

endm 

lOh 


Example: The following program fragment demonstrates how ROM BIOS video 
function OAH is used to display 40 • (asterisk) characters, starting at the upper 
left comer of the display screen. 


mov 

ah,2 

;AH=Set cursor function code 

mov 

bh,0 

;BH=Page 0 

mov 

dh,0 

;DH=Cursor row position 

mov 

dl,0 

;DL=:Cursor column position 

int 

lOh 

;Home the cursor 

mov 

ah,0ah 

;AH=Write characters function code 

mov 

al,'*' 

;AL=Asterisk character 

mov 

bh,0 

;BH=Page 0 

mov 

cx,40 

;CX=Number of characters 

int 

lOh 

;Display the characters 
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SET COLOR PALETTE (FUN CTION OBH) _ 

CaUWith: 

AH = OBH 
BH = Function code 
BL = Color or Palette code 

Returns: 

Nothing 



Register Summary: 
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Description: ROM BIOS video function OBH selects either a color palette or the 
background and border colors. If the function code in BH is equal to zero, ROM 
BIOS video function OBH sets the background and border colors. While in 
graphics modes, the background and the border colors will be set to the color 
passed in BL. While in text modes, only the border color will be set to the color 
passed in BL. K the function code in BH is equal to one, the new color palette 
code is passed in BL as follows: 


Palette 

Pixel Value 

Color 

0 

0 

Current Background Color 


1 

Green 


2 

Red 


3 

Brown 

1 

0 

Current Background Color 


1 

Cyan 


2 

Magenta 


3 

White 


Suggested Macro Definition: 


setpalette 

macro 

func,color 


mov 

ah,0bh 


mov 

bh,func 


mov 

endm 

bl,color 
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Example: The following program fragment demonstrates how ROM BIOS video 
function OBH is used to set a display screen’s background to white. 


mov 

ah,0bh 

;AH=Set palette function 

mov 

bh,0 

;BH=Set border color function 

mov 

bl,7 

;BL=White color value 

int 

10h 

;Set border to white 
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WRITE GRAPHICS PIXEL (FUNCTION 0CH> 

Register Summaiy: 



CaUWith: 

AH = OCH 
AL = Color value 
CX = Pixel column 
DX = Pixel row 

Returns: 

Nothing 
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Description: ROM BIOS video function OCH sets a graphics pixel to the color 
passed in AL. For video modes 04H and 05H, the legitimate range for color values 
is 0 to 3. Video mode 06H allows only color values 0 and 1. Whenever bit 7 of 
the color value is set, the color value is xored with the pixel’s current color value. 


Su^ested Macro Definition: 


wn’tepixel 


macro 

pixelx,pixely,color 

mov 

ah,0ch 

mov 

al,color 

mov 

cx,pixelx 

mov 

dx,pixely 

endm 



Example: The following program fragment demonstrates how ROM BIOS video 
function OCH is used to draw a graphics line across the center of the display screen. 


mov 

cx,0 

;CX-Starting x-coordinate 

mov 

clx,120 

;DX=Y-coordinate 

mov 

ah,0ch 

;AH3:Urite pixel function code 

mov 

aM 

;AL=Color value 

int 

lOh 

;Turn on the pixel 

inc 

cx 

;Bump the x-coordinate 

cmp 

cx,640 

;Loop 

jb 

loop 

; till done 
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READ GRAPHICS PIXEL (FUNCTION ODH) 

Register Summaiy: 


AX 


At I 

BX 

BH 

BL 

CX 


DX 



SP 

BP 

SI 

Dl 


IP 


FLAGS 


CS 

DS 

SS 

ES 


CaUWith: 

AH = ODH 
CX = Pixel column 
DX = Pixel row 

Returns: 

AL = Color value 


241 




Appendix B: IBM PC ROM BIOS Video Services 


Description: ROM BIOS video function ODH retrieves the color value for a 
specified graphics pixel. The range of the retrieved color value depends on the 
current video mode. 


Suggested Macro Definition: 


readpixel 


macro 

pixelx,pixely 

mov 

ah,0dh 

mov 

cx,pixelx 

mov 

dx,pixely 

int 

lOh 

endm 



Example: The following program fragment demonstrates how ROM BIOS video 
function ODH is used to retrieve the color value of pixel 0,25. 


mov 

ah,0dH 

;AH=Read pixel function code 

mov 

cx,0 

;CX=Pixel X-coordinate 

mov 

dx,25 

;DX=Pixel y-coordinate 

int 

lOh 

;Retrieve the color value 
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WRITE CHARACTER IN TELETYPE MODE (FUNCTION OEH) 

Register Summaiy: 

CaUWith: 

AH = OEH 
AL = ASCII code 
BH = Page number 
BL = Color value for graphics modes 


Returns: 

Nothing 


IP 

FLAGS 

CS 

DS 

SS 

ES 


AX 

BX 

CX 

DX 


SP 

BP 

SI 

Dl 



■■■ "'M 

ssiaSiiliBi 

CH 

CL 

DH 

DL 
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Description: ROM BIOS video ftmction OEH displays a character by using a 
teletype mode. The ASCII codes for bell, backspace, carriage return, and linefeed 
are hll recognized by the teletype mode. All other ASCII codes display their cor¬ 
responding characters. 

Su^sted Macro Definition: 


writetty 


macro 

char,page,COlor 

mov 

ah,0eh 

mov 

al,char 

mov 

bh,page 

ifnb 

<color> 

mov 

endif 

bl,color 

int 

endm 

lOh 


Example: The following program fragment demonstrates how ROM BIOS video 
function OEH is used to perform a carriage return. 


mov 

ah,0eh 

;AH=Write teletype function code 

mov 

al,13 

;AL=Carriage return 

mov 

bh,0 

;BH=Page number 

int 

lOh 

;Do a carriage return 
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GETVIDEO MODE (FUNCTION OFH) 

Register Summary: 


AX 

BX 

m 

BL 

CX 

CH 

CL 

DX 

DH 

DL 


SP 

BP 

SI 

Dl 


IP 


FLAGS 


CS 

DS 

SS 

ES 


CaUWith: 

AH = OFH 

Returns: 

AH = Line length 
AL = Video mode 
BH = Page number 
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Description: ROM BIOS video function OFH retrieves the number of columns 
per display line, the currently active page number, and the current video mode as 
follows: 


Display 

Mode 

Description 

Adapter(s) 

OOH 

40 X 25 black-and-white text 

CGA, EGA, PCjr 

OlH 

40 X 25 color text 

CGA, EGA, PCjr 

02H 

80 X 25 black-and-white text 

CGA, EGA, PCjr 

OSH 

80 X 25 color text 

CGA, EGA, PCjr 

04H 

320 X 200 4-color graphics 

CGA, EGA, PCjr 

OSH 

320 X 200 4-color (color off) 

CGA, EGA, PCjr 

06H 

640 X 200 2-color graphics 

CGA, EGA, PCjr 

07H 

80 X 25 black-and-white text 

MDA,EGA 

OSH 

160 X 200 16-color graphics 

PCjr 

09H 

320 X 200 16-color graphics 

PCjr 

OAH 

640 X 200 4-color graphics 

PCjr 

ODH 

320 X 200 16-color graphics 

EGA 

OEH 

640 X 200 16-color graphics 

EGA 

OFH 

640 X 350 2-color graphics 

EGA 

lOH 

640 X 350 4/16-color graphics 

EGA 


Suggested Macro Definition 

getvldmode macro 

mov ah,0fh 

int lOh 

endm 
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F.vafiipi«»; The following program fragment demonstrates how ROM BIOS video 
function OFH is used to retrieve the current video mode, the current display page, 
and the number of columns per line. 


mov ah,0fh 

int 10h 


;AH=Get video mode function code 
;Get the video mode 
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Appendix C: Compiling the WINDOWS Toolbox 


Because the WINDOWS toolbox was originalfy developed using Microsoft 
QuickC, the portabili^ of the programs in tb^ book depends a great deal upon a 
specific C compiler’s conformity to Microsoft C. Although conformity with 
Microsoft C may seem to limit portability, most C compilers for the IBM PC offer 
a great deal of compatibility wifii Miorosoft C. Accordingly, the WINDOWS 
toolbox can be successfully ported to a variety of C compilers. 


PORTABILITY PROBLEMS 


Whereas most portability problems can be easily handled with conditional com¬ 
pilation statements, some portability problems just don’t have a 100% solution; 
therefore, most of the WINDOWS toolbox programs will generate warning state¬ 
ments during the compilation process. Indeed, even Microsoft QuickC generates 
warnings for a few programs. Unfortunately, some portability problems just can’t 
be solved. These unsolvable problems are usually the result of either inadequate 
run-time libraries or semantic differences in the run-time library routines. The 
following is a sununary of the portability problems that are inherent in the WIN¬ 
DOWS toolbox: 


PROGRAM DESCRIPTION 

All Programs HlghC: Unfortunatefy, the WINDOWS toolbox can’t be 

successfully ported to the High C compiler without a great 
deal of modification because High C does not conform with 
Microsoft C, and its run-time library is inadequate. 

Objective C: Because Objective C is an object-oriented super¬ 
set translator, the WINDOWS toolbox can’t be directly port¬ 
ed to Objective C. However, Objective C translates programs 
into Microsoft C. Therefore, Objective C should be able to 
support the WINDOWS toolbox by compiling the programs 
with Microsoft C. 


video.asm DeSmet DC88: Because DeSmet DC88 only supports the 

small memory model, a special DeSmet DC^8 version of 
video.asm—video.dc—must be used for the low-level assembly 
language input/output functions. 
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PROGRAM 


windaiws.h 


windowx 


dialog.c 


DESCRIPTION 

Eco-CSS: Because Eco-C88 doesn’t support mixed memory 
models, a special Eco-C88 version of video.asm—video.ec— 
must be used for the low-level assembly language input/output 
functions. 

Lattice C: Because Lattice C doesn’t properly handle mixed 
memory models, a special Lattice C version of video.asm— 
video.lc—must be used for the low-level assembly language 
input/output functions. 

WATCOM C: Because WATCOM C uses a unique 
parameter-passing convention, a ^)ecial WATCOM C 
version of video.asm, video.wc, must be used for the low- 
level assembly language input/output functions. 

Zortech C+ +: Because Zortech C+ + doesn’t support mixed 
memory models, a special Zortech C+ + version of video.asm, 
video.zc, must be used for the low-level assembly language 
input/output functions. 

Lattice C: Because Lattice C generates a warning for the re¬ 
definition of far, any program that includes windows.h will 
generate a warning message. Accordingly, all of the 
WINDOWS toolbox programs will generate at least one 
warning message. 


ECO-C88: Generates warning messages. 

Lattice C: Generates warning messages. 
Microsoft QuickC: Generates warning messages. 

Eco-C88: Generates warning messages. 

Lattice C: Generates warning messages. 
Microsoft QuickC: Generates warning messages. 
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PROGRAM DESCRIPTION 

pulldovmx Eco-CSS: Generates warning messages. 

Lattice C: Generates warning messages. 

Zortech C+ +: Generates warning messages. 

errorx Turbo C: Generates warning messages. 

ledgerx Eco-C88: Because of numerous syntactic and semantic 

differences, ledger.c will not correctly compile without 
numerous modifications. 

Lattice C: Unfortunately, Lattice C runs out of memory. 

Microsoft C: Generates warning messages. 

Microsoft QuickC: Generates warning messages. 

Power C: Because of semantic differences in the run-time 
library routines, ledger.c will not execute properly. 

Turbo C: Generates warning messages. 

2^rtech C+ +: Because of semantic differences in the run¬ 
time library routines, ledger.c will not execute properly. 


COMPILING WINDOWS WITH C86Plus 1.20d 


Batch File Listing: cccomp.bat 

Listing C.l, cccomp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. In addition to constructing the WINDOWS toolbox, cccomp.bat 
compiles and links SIMPLE LEDGER. 
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Listing C.1: cccomp.bat 


rem 

rem cccomp.bat 

rem Compile WINDOWS with C86PLUS 1.20D 

rem 

masm /mx /dC86PLUS video,; 

cc -DC86PLUS -c uindio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 

rem 

lib windows.lib +video+windio+window+menus+popup+dialog+pulldown+error; 

rem 

rem Compile and Link SIMPLE LEDGER 

rem 

cc -DC86PLUS -c ledger.c 
cc ledger.obj windows.lib 
rem 

rem Remove the Unwanted OBJ Files 

rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
del ledger.obj 
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COMPILING WINDOWS WITH DeSmet DC88 3.1c 


Batch File Listing: dccomp.bat 

Listing C.2, dccoinp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.s. In addition to constructing the WINDOWS toolbox, dccomp.bat 
compiles and links SIMPLE LEDGER. 


Listing C.2: dccomp.bat 


rem 

rem dccomp.bat 

rem Compile WINDOWS with DeSmet DC88 3.1c 

rem 

asm88 video.dc 
c88 windio.c nDC88 
c88 window.c nDC88 
c88 menus.c nDC88 
c88 popup.c nDC88 
c88 dialog.c nDC88 
c88 pulldown.c nOC88 
c88 error.c nDC88 
rem 

rem Build WINDOWS library - windows.lib 

rem 

libSS ‘owindows error.o pulldown.o dialog.o popup.o menus.o window.o windio.o video.o 
rem 

rem Compile and Link SIMPLE LEDGER 

rem 

c88 ledger.c nDC88 
bind ledger.o windows.s 
rem 

rem Remove the Unwanted 0 Files 

rem 

del video.o 
del windio.o 
del window.o 

continued... 
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...from previous page 

del menus.o 
del popup.o 
del dialog.o 
del pulldown.o 
del error.0 
del ledger.0 


Source Listing: video.dc 

Listing C.3, video.dc, is a special DeSmet DC88 version of video.asm. 

Listing C.3: video.dc 


VIDEO.DC - For the WINDOWS Toolbox 

DeSmet DC88 Version of VIDEO.ASM 


; ROM BIOS Locations 

f 

bi os__data equ 40h 

crt_mode_set equ 65h 


dseg 

public _nonibm_ 

continued... 
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...from previous page 

_nonibm_ dw 1 

displayseq dw ObSOOh 

cseg 

publ 1 C settext80_, fiIlscreen_,setattrib_ 
pubI 1 c savescreen_,restorescreen_,drawbox 
public printstring_,waitkey_ 


Set to 80 X 25 text mode 


settext80_: 


settext801: 


settext802: 

settext803: 


mov 

ah,15 

Get the 

int 

lOh 

video mode 

cmp 

al,2 

Jump 

je 

settext801 

if 

cmp 

al,3 

it's 

je 

settext801 

already 

cmp 

al,7 

a 80 X 25 

je 

settext801 

video mode 

mov 

ax,3 

Set it to ' 

int 

lOh 

80 X 25 color 

mov 

ax,0500h 

Set the 

int 

lOh 

page to 0 

mov 

ah,12h 

Check 

mov 

bl,10h 

for 

int 

lOh 

EGA 

cmp 

bl,10h 

Jump 

jne 

settext803 

if EGA 

mov 

ah,15 

Get the 

int 

lOh 

video mode 

cmp 

al,7 

Jump 

je 

settext802 

if MDA 

mov 

_nonibm_,0 

Flag IBM CGA 

jmp 

settext803 

Jump 

mov 

displayseg,0b000h 

1 ;Set the display segment address 

ret 

0 

Return 


continued... 
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...from previous page 


; Fill text window 

f 

fillscreen_: push 

mov 
sub 
push 
mov 
mov 
call 
mov 
mov 
mov 
sub 
inc 
mov 
mov 
sub 
inc 
mov 
cld 
mov 
mov 
call 

fillscreeni: push 

mov 

rep stosw 

pop 
add 
dec 
jnz 
call 
pop 
mov 
pop 
ret 


bp 

bp,sp 

sp,4 

di 

ax,Cbp+4] 
bx,Cbp+6] 
fig_vid_off 
di,ax 

es,displayseg 
ax,[bp^8] 
ax,[bp+4] 
ax 

[bp-2],ax 
ax, Cbp+-10] 
ax,[bp+6] 
ax 

tbp-4],ax 

al,Cbp+12] 

ah,Cbp4-14] 

disable_cga 

di 

cx,Cbp-4] 
di 

di,160 
word [bp-2] 
fillscreeni 
enable_cga 

sp.bp 

bp 


Save BP registers 
Point it to the stack 
Reserve local space 
ave DI 
igure 
the 

video offset 
DI=Video offset 
ES=Video segment 
Figure 
the number 

of rows 
Save it 
Figure 
the number 

of columns 
Save it 

Flag increment 
AL=Display character 
AH=Display attribute 
Disable the CGA if necessary 
Save the video offset 
CX=Number of columns 
Display the row 
Restore the video offset 
Point it to the next row 
Loop 

till done 

Enable the CGA if necessary 
Restore DI 

Reset the stack pointer 

Restore BP 

Return 


continued. 
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...from previous page 


Set attributes 


setattrib_: 

push 

bp 


mov 

bp,sp 


sub 

sp,4 


push 

di 


mov 

ax, Cbp+4] 


mov 

bx, [bp4-6] 


call 

fig_vid_off 


mov 

di,ax 


inc 

di 


mov 

es,displayseg 


mov 

ax, [bpfS] 


sub 

ax,[bp+4] 


inc 

ax 


mov 

[bp-2],ax 


mov 

ax, Cbp<-10] 


sub 

ax,Cbpf6] 


inc 

ax 


mov 

cld 

[bp-4],ax 


mov 

al,Cbp+12] 


call 

disable_cga 

setattribi: 

push 

di 


mov 

cx,[bp-4] 

setattrib2; 

stosb 



inc 

di 


loop 

setattrib2 


pop 

di 


add 

di,160 


dec 

word [bp-2] 


jnz 

setattribi 


call 

enable^cga 


pop 

di 


mov 

sp,bp 


pop 

ret 

bp 


continued... 


;Save BP 

Point it to the stack 
Save space for local data 
Save DI 
Figure 
the 

video offset 
DI=Video offset 

Bump it to the first attribute 
ES=Video segment 
Figure 
the number 
of rows 
Save it 
Figure 
the number 
columns 
Save it 
Flag increment 
AL=Display attribute 
Disable the CGA if necessary 
Save the video offset 
CX=Number of columns 
Set the attribute byte 
Bump the video pointer 
Loop till done 
Restore the video offset 
Point it to the next row 
Loop 

till done 

Enable the CGA if necessary 
Restore DI 

Reset the stack pointer 

Restore BP 

Return 
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...from previous page 


; Save screen 

i 

savescreen_: push bp 

mov bp,sp 

sub sp,4 

push di 

push si 

mov ax,[bp+4] 

mov bx,[bp+6] 

call fig_vid_off 

mov si,ax 

mov ax, [bp<-8] 

sub ax, [bp4'4] 

inc ax 

mov [bp-2],ax 

mov ax,[bp+10] 

sub ax,[bp+6] 

inc ax 

mov [bp-4],ax 

cld 

call disable_cga 

push ds 

push ds 

pop es 

mov di,[bp+12] 

mov ds,displayseg 

savescreeni: push si 

mov cx,[bp-4] 

rep movsu 

pop si 

add si,160 

dec word [bp-2] 

jnz savescreeni 

pop ds 

call enable_cga 

pop si 

pop di 

mov sp,bp 

pop bp 

ret 

continued... 


Save BP 

Point it to the stack 
Make room for local data 
Save the 
registers 
Figure 
the 

video offset 
SI=Video offset 
Figure 
the number 
of rows 
Save it 
Figure 
the number 
of columns 
Save it 

Flag increment 

Disable the CGA if necessary 
Save DS 
Point ES 

the data segment 
DI=Array pointer 
DS:SI=Video pointer 
Save the video offset 
CX=Number of columns 
Save the row 
Restore the video offset 
Point it to the next row 
Loop 

till done 
Restore DS 

Enable the CGA if necessary 
Restore 
the registers 
Reset the stack pointer 
Restore BP 
Return 
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...from previous page 


Restore screen 


restorescreen_: push 

bp 

Save BP 

mov 

bp.sp 

Point it to the stack 

sub 

sp,4 

Make room for local data 

push 

di 

Save the 

push 

si 

registers 

mov 

ax,Cbp+4] 

Figure 

mov 

bx,Cbp+6] 

the 

call 

fig_vid_off 

video offset 

mov 

di,ax 

Dl^Video offset 

mov 

es,displayseg 

ES-Video segment 

mov 

ax,Cbp+8] 

Figure 

sub 

ax,[bpf4] 

the number 

inc 

ax 

of rows 

mov 

[bp-2],ax 

Save it 

mov 

ax,Cbp+10] 

Figure 

sub 

ax,Cbpf6] 

the number 

inc 

ax 

of columns 

mov 

[bp-4],ax 

Save it 

cld 


Flag increment 

call 

disable_cga 

Disable the CGA if necessary 

mov 

si,[bpf12] 

DSiSI^Array pointer 

restorescreeni: push 

di 

Save the video offset 

mov 

cx,[bp-4] 

CX-Number of columns 

rep movsw 


Save the row 

pop 

di 

Restore the video offset 

add 

di,160 

Point it to the next row 

dec 

word [bp-2] 

Loop 

jnz 

restorescreeni 

till done 

call 

enable_cga 

Enable the CGA if necessary 

pop 

si 

Restore 

pop 

di 

the registers 

mov 

sp,bp 

Reset the stack pointer 

pop 

bp 

Restore BP 

ret 


Return 


continued. 
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...from previous page 

t 

; Draw box 

f 

drawbox_: push bp 

mov bp,sp 

sub sp,4 

push di 

mov ax, [bp«‘4] 

mov bx, Cbpf6] 

call fig_vid_off 

mov d!,ax 

mov es,displayseg 

mov ax, [bp4-8] 

sub ax, Cbp^4] 

dec ax 

mov [bp-2],ax 

mov ax,[bp+10] 

sub ax,[bp+6] 

dec ax 

mov [bp-4],ax 

cld 

mov ah, [bp^’U] 

call disable_cga 

push di 

mov al,201 

cmp word [bp»-12],0 

je drawboxi 

mov al,218 

drawboxi: stosw 

mov al,205 

cmp word [bp+12],0 

je drawbox2 

mov al,196 

drawbox2; mov cx,[bp-4] 

rep stosw 

mov al,187 

cmp word [bp+12],0 

Je drawbox3 

mov al,191 

continued... 


Save BP 

Point it to the stack 
Save space for local data 
Save DI 
Figure 
the 

video offset 
DI=Video offset 
ES^Video segment 
Figure 
the number 
of rows - 2 
Save it 
Figure 
the number 
of columns - 2 
Save it 

Flag increment 
AHsDisplay attribute 
Disable the CGA if necessary 
Save the video offset 
AL=Double line character 
Jump if 
double line 

AL=Single line character 
Save the character/attribute pair 
AL=Double line character 
Jump if 
double line 

ALsSingle line character 
CX-Line length 
Display the line 
AL>Double line character 
Jump if 
double line 

AL^Single line character 
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.from previous page 


drawbox3: 

stosw 



pop 

di 


add 

Q. 

1 

drawbox4: 

push 

di 


mov 

alJ86 


cmp 

word Cbpf12],0 


je 

drawboxS 


mov 

al,179 

drawboxS: 

stosw 



add 

di,[bp-4] 


add 

stosw 

di,[bp-4] 


pop 

di 


add 

di,160 


dec 

word [bp-2] 


jnz 

drawbox4 


mov 

al,200 


cmp 

word [bp+12],0 


je 

drawboxS 


mov 

al,192 

drawbox6: 

stosw 



moy 

al,205 


cmp 

word [bp+12],0 


je 

drawboxZ 


mov 

al,196 

drawboxZ: 

mov 

cx,[bp-4] 

rep 

stosw 



mov 

al,188 


cmp 

word [bp+12],0 


je 

drawboxS 


mov 

al,217 

drawboxS: 

stosw 



call 

enable_cga 


pop 

di 


mov 

sp,bp 


pop 

ret 

bp 


Save the character/attribute pair 
Restore the video pointer 
Point it to the next row 
Save the video pointer 
ALsDouble line character 
Jump if 
double line 

AL^Single line character 
Save the character/attribute pair 
Point to 
the right side 

Save the character/attribute pair 
Restore the video pointer 
Point it to the next row 
Loop till the 
sides are complete 
AL-Double line character 
Jump if 
double line 

ALsSingle line character 
Save the character/attribute pair 
AL=Double line character 
Jump if 
double line 

AL^^Single line character 
CXsLine length 
Display the line 
AL-Double line character 
Jump if 
double line 

ALsSingle line character 
Save the character/attribute pair 
Enable the CGA if necessary 
Restore DI 

Reset the stack pointer 

Restore BP 

Return 


continued... 


262 




Appendix C: Compiling the WINDOWS Toolbox 
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; Display string 

t 

printstring_: push bp 

mov bp,sp 

push si 

push di 

mov ax,Cbp+4] 

mov bx,Cbp+6] 

call fig_vid_off 

mov di,ax 

mov es,displayseg 

cld 

mov si,[bFH*8] 

cmp _nonibm_,0 

je print_string2 

print_st ring1: Iodsb 

or al,al 

jz print_string6 

stosb 
inc di 

jmp print__string1 

print__string2: mov dx,03dah 

print_st ring3: Iodsb 

or al,al 

jz print_string6 

mov ah,aI 

cli 

print_string4: in al,dx 

and al,1 

jnz print_string4 

print_string5: in al,dx 

and al,1 

jz print^strings 

mov es:[di],ah 

sti 

inc di 

inc di 

jmp print_string3 

continued... 


Save BP 

Point it to the stack 
Save 

the registers 
Figure 
the 

video offset 
Dl=Video offset 
ES=Video segment 
Flag increment 
DSrSIsString pointer 
Jump if 
IBM CGA 

Get the next character 
Jump 
if done 

Display the character 
Bump the video pointer 
Loop till done 
DX=Video status register 
Get the next character 
Jump 
if done 
Put it in AH 
Disable the interrupts 
Loop 
if in 

horizontal retrace 
Loop 

if not in 

horizontal retrace 
Display the character 
Reenable the interrupts 
Bump the 
video pointer 
Loop till done 
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print_string6: 

pop 

di 


pop 

si 


pop 

ret 

bp 

t 

; Get a Key 

t 

waitkey^: 

mov 

ah,01h 


int 

16h 


iz 

waitkey_ 


mov 

ah,0 


int 

16h 


or 

al,al 


jz 

wait_key1 


xor 

ah,ah 


imp 

wait_key2 

wait_key1: 

xchg 

ah,al 


inc 

ah 

wait_key2: 

ret 


Figure video 

offset 


fig_vid_off: 

push 

dx 


push 

bx 


dec 

ax 


mov 

bx,160 


mul 

bx 


pop 

bx 


dec 

bx 


sal 

bx,1 


add 

ax,bx 


pop 

ret 

dx 


continued... 


; the 

; registers 
;Restore BP 
;Return 


;Has a key 
; been pressed? 

;Loop if not 
;Get 

; the key 
;Jump if 
; extended key 
;Erase the scan code 
;Jurap 

;AXaScan code 
;AXsScan code * 256 
;Return 


;Save DX 

;Save the column 
;Decrenient the row 
jFigure the 
; row offset 
;Restore the column 
;Decrement it 

;Figure the column pair offset 
;AX=Video offset 
;Restore DX 
;Return 
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Disable CGA 


1 

disable_cga: 

cmp 

_nonibm_,0 

Jump if it 


jne 

disable_cga2 

isn't an IBM CGA 


push 

ax 

Save the 


push 

dx 

registers 


mov 

dx,3dah 

DX^Video status port 

disable_cga1: 

in 

al,dx 

Wait 


and 

al,8 

for 


jz 

disable_cga1 

vertical retrace 


mov 

dl,0d8h 

DX^Video select register port 


mov 

al,25h 

Disable 


out 

dx,al 

the video 


pop 

dx 

Restore 


pop 

ax 

the registers 

disable_cga2: 

ret 


Return 

1 

; Enable CGA 




1 

enable_cga: 

cmp 

_nonibm_,0 

Jump if it 


jne 

enable.cgal 

isn't an IBM CGA 


push 

ax 

Save 


push 

bx 

the 


push 

dx 

registers 


push 

ds 



mov 

ax,bios_data 

Set the 


mov 

ds,ax 

data segment 


mov 

bx , crt_mode_set 

BX=Video mode set value pointer 


mov 

al,[bx] 

ALsVideo mode set value 


mov 

dx,03d8h 

DX'Video select register port 


out 

dx,al 

Reenable the video mode 


pop 

ds 

Restore 


pop 

dx 

the 


pop 

bx 

registers 


pop 

ax 


enable_cga1: 

ret 


Return 
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COMPILING WINDOWS WITH ECO-C88 4.14 _ 

Batch File Listing: ecoccomp.bat 

Listing C.4, ecoccoinp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. 

Listing C.4: ecoccomp.bat 


rem 

rem ecoccomp.bat 

rem Compile WINDOWS with Eco-CSS 4.14 

rem 

masm /mx video.ec,; 

cc -dECOCSS -nl windio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 

rem 

lib windows.lib ’t-video+windio+window+menus^-popup^'dialog'i-pulldown+error; 
rem 

rem Remove the Unwanted OBJ Files 

rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
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Source Listing: video.ec 

Listing C.5, video.ec, is a special Eco-C88 version of video.asm. 

Listing C.5: video.ec 


VIDEO.EC - For the WINDOWS Toolbox 

ECO-C88 Version of VIDEO.ASM 


; Set BIGCODE and BIGDATA as follows: 

; Memory Model BIGCODE BIGDATA 

; Small 0 0 

; Medium 1 0 

; Compact 0 1 

; Large 1 1 

BIGCODE equ 0 

BIGDATA equ 0 

include pro.h 

ifdef cpu286 

.286 
endif 


; ROM BIOS Locations 

f 

bios_data equ 40h 

crt_mode_set equ 65h 

continued... 
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...from previous page 

$d$data8eg segment word public 'data2' 

public _nonibm 

_nonibm dw 1 

displayseg du ObSOOh 

$d$dataseg ends 


if bigeode 

$c$_video segment word public 'code^ 

assume cs:$c$_video 
else 

$b$prog segment word public 'code' 

assume cs:$b$prog 
endif 

public _settext80,_fiIlscreen,_setattrib 
public _savescreen,_restorescreen,_drawbox 
public J3rintstring,_waitkey 


Set to 80 X 25 text mode 



if 

bi geode 


settext80 

proc 

far 



else 



settext80 

proc 

near 



endif 




mov 

ah,15 

Get the 


int 

lOh 

video mode 


emp 

al,2 

Jump 


je 

settext801 

if 


emp 

al,3 

it's 


je 

settext801 

already 


emp 

al,7 

a 80 X 25 


je 

settext801 

video mode 


mov 

ax,3 

Set it to 


int 

lOh 

80 X 25 color 


continued... 
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...from previous page 


settext801: 

mov 

ax,0500h 

Set the 


int 

lOh 

page to 0 


mov 

ahJ2h 

Check 


mov 

blJOh 

for 


int 

lOh 

EGA 


cmp 

bl,10h 

Jump 


jne 

settext803 

if EGA 


mov 

ahJ5 

Get the 


int 

lOh 

video mode 


cmp 

aij 

Jump 


je 

settext802 

if MDA 


mov 

_^nonibm,0 

Flag IBM CGA 


imp 

short settext803 

;Jurap 

settext802: 

mov 

displayseg,0b000i 

1 ;Set the display segment address 

settext803: 

ret 


?Return 

_settext80 

endp 




; Fill text 

window 


t 

if 

bigeode 

_fillscreen 

proc 

far 

rowl 

equ 

<6[bp]> 

coll 

equ 

<8tbp]> 

row2 

equ 

<10[bp]> 

col2 

equ 

<12Cbp]> 

char 

equ 

<14[bp]> 

att 

equ 

<16tbp]> 


else 


_f illscreen 

proc 

near 

rowl 

equ 

<4tbp]> 

coll 

equ 

<6[bp]> 

row2 

equ 

<8[bp]> 

col2 

equ 

<10[bp]> 

char 

equ 

<12[bp]> 

att 

equ 

endif 

<14[bp]> 


continued... 
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rows 

cols 


fillscreenl: 
rep 


equ 

<-2[bp]> 



equ 

<-4[bp]> 



ifdef 

cpu286 



enter 

4,0 


;Set up the stack frame 

else 




push 

bp 


;Save BP registers 

mov 

bp,sp 


;Point it to the stack 

sub 

sp,4 


;Reserve local space 

endif 




push 

di 


Save 

push 

es 


the registers 

mov 

ax,row1 


Figure 

mov 

bx,col1 


the 

call 

fig_vid_off 


video offset 

mov 

di,ax 


DI=Video offset 

mov 

es,displayseg 

ES=Video segment 

mov 

ax,row2 


Figure 

sub 

ax,row1 


the number 

inc 

ax 


of rows 

mov 

rows,ax 


Save it 

mov 

ax,col2 


Figure 

sub 

ax,col1 


the number 

inc 

ax 


of columns 

mov 

cols,ax 


Save it 

cld 



Flag increment 

mov 

a1,byte ptr 

char 

;AL=Display character 

mov 

ah,byte ptr 

att 

;AH=Display attribute 

call 

disable_cga 


;Disable the CGA if necessary 

push 

di 


;Save the video offset 

mov 

cx,cols 


;CX=Number of columns 

stosu 



;Display the row 

pop 

di 


;Restore the video offset 

add 

di,160 


[Point it to the next row 

dec 

word ptr rows 

[Loop 

jnz 

fillscreenl 

i 

[ till done 

call 

enable_cga 

't 

[Enable the CGA if necessary 

pop 

es 

i 

[Restore 

pop 

di 

i 

[ the registers 

ifdef 

cpu286 




continued... 
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...from previous page 



leave 


;Restore the stack 


else 




mov 

sp.bp 

;Reset the stack pointer 


pop 

endif 

bp 

;Restore BP 


ret 


;Return 

f lUscreen 

endp 




Set attributes 


__setattrib 

if 

proc 

bigeode 
far 


row1 

equ 

<6[bp]> 


coll 

equ 

<8[bp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12[bp]> 


att 

equ 

<U[bp]> 


_setattrib 

else 

proc 

near 


row1 

equ 

<4[bp]> 


coU 

equ 

<6tbp]> 


row2 

equ 

<8[bp]> 


col2 

equ 

<10[bp]> 


att 

equ 

<12[bp]> 


rows 

endif 

equ 

<-2[bp]> 


cols 

equ 

<-4[bp]> 



ifdef 

enter 

cpu286 

4,0 

;Set up the stack frame 


else 

push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


sub 

sp,4 

;Save space for local data 


endif 

push 

di 

;Save 


push 

es 

; the registers 


mov 

ax,row1 

;Figure 


mov 

bx,col1 

; the 


continued... 
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setattribl: 

setattrib2: 


setattrib 


call 

fig_vid_off 

video offset 

mov 

di,ax 

DI=Video offset 

inc 

di 

Bump it to the first attribute 

mov 

es,displayseg 

ES»Video segment 

mov 

ax,row2 

Figure 

sub 

ax,rou1 

the number 

inc 

ax 

of rows 

mov 

rows,ax 

Save it 

mov 

ax,col2 

Figure 

sub 

ax,coll 

the number 

inc 

ax 

columns 

mov 

cols,ax 

Save it 

cld 


Flag increment 

mov 

al,byte ptr att 

AL^isplay attribute 

call 

disable_cga 

Disable the CGA if necessary 

push 

di 

Save the video offset 

mov 

cx,cols 

CX=Number of columns 

stosb 


Set the attribute byte 

inc 

di 

Bump the video pointer 

loop 

setattrib2 

Loop till done 

pop 

di 

Restore the video offset 

add 

Q. 

1 

Point it to the next row 

dec 

word ptr rows 

Loop 

jnz 

setattribl 

till done 

call 

enable_cga 

Enable the CGA if necessary 

pop 

es 

Restore 

pop 

di 

the registers 

ifdef 

cpu286 


leave 

else 

j 

Restore the stack 

mov 

8p,bp 

;Reset the stack pointer 

pop 

endif 

bp 

; Restore BP 

ret 

endp 


; Return 


Save screen 


continued. 
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if 

bi geode 


^savescreen 

proc 

far 


rowl 

equ 

<6[bp]> 


coll 

equ 

<8[bp]> 


rou2 

equ 

<10[bp]> 


col2 

equ 

<12[bp]> 


array 

equ 

<14[bp]> 



else 



_savescreen 

proc 

near 


rowl 

equ 

<4tbp]> 


coll 

equ 

<6[bp]> 


row2 

equ 

<8[bp]> 


col2 

equ 

<10[bp)> 


array 

equ 

endif 

<12[bp]> 


rows 

equ 

<-2[bpI> 


cols 

equ 

<-4tbp]> 



ifdef 

cpu286 



enter 

4,0 ; 

Set up the stack frame 


else 




push 

bp 

:Save BP 


mov 

bp.sp 

[Point it to the stack 


sub 

sp,4 

[Make room for local data 


endif 




push 

di 

Save 


push 

si 

the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

f ig_vid_off 

video offset 


mov 

si, ax 

SI=Video offset 


mov 

ax,row2 

Figure 


sub 

ax,rowl 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,coll 

the number 


inc 

ax 

of columns 


continued... 
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mov 

cols,ax 

;Save it 


cld 


;Flag increment 


call 

disable_cga 

^Disable the CGA if necessary 


push 

ds 

;Save DS 


if 

bigdata 



les 

disarray 

;ES:DI=Array Pointer 


else 




push 

ds 

Point ES 


pop 

es 

to the data segment 


mov 

di,array 

ES:DIsArray pointer 


endif 




mov 

ds,displayseg 

DS:Sl=Video pointer 

savescreeni: 

push 

si 

Save the video offset 


mov 

cx,cols 

eXsNumber of columns 

rep 

movsw 


Save the row 


pop 

si 

Restore the video offset 


add 

si,160 

Point it to the next row 


dec 

word ptr rows 

Loop 


jnz 

savescreeni 

till done 


pop 

ds 

Restore DS 


call 

enable_cga 

Enable the CGA if necessary 


pop 

es 

Restore 


pop 

si 

the 


pop 

di 

registers 


ifdef 

cpu286 



leave 

j 

; Restore the stack 


else 




mov 

sp.bp ; 

;Reset the stack pointer 


pop 

bp j 

; Restore BP 


endif 




ret 

1 

; Return 

_savescreen 

endp 




Restore screen 

if bigeode 

continued... 
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_restorescreen 

proc 

far 


rowl 

equ 

<6lbp]> 


coll 

equ 

<8[bp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12tbp]> 


array 

equ 

else 

<U[bp]> 


_restorescreen 

proc 

near 


row1 

equ 

<4[bp]> 


coll 

equ 

<6tbp]> 


row2 

equ 

<8[bp]> 


col2 

equ 

<10[bp]> 


array 

equ 

endif 

<12[bp]> 


rows 

equ 

<-2tbp]> 


cols 

equ 

ifdef 

<-4[bp]> 

cpu286 



enter 

else 

4,0 ; 

Set up the stack frame 


push 

bp 

Save BP 


mov 

bp,sp 

Point it to the stack 


sub 

endif 

sp,4 

iMake room for local data 


push 

di 

Save 


push 

si 

the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

Dl-Video offset 


mov 

es,displayseg 

ESsVideo segment 


mov 

ax,rou2 

Figure 


sub 

ax,rowl 

the number 


inc 

ax 

of rows 


mov 

rows, ax 

Save it 

- 

mov 

ax,col2 

Figure 


sub 

ax,coll 

the number 


inc 

ax 

of columns 


continued.. 
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mov 

cols,ax 

;Save it 


cld 


;Flag increment 


call 

disable_cga 

;0isable the CGA if necessary 


if 

bigdata 



push 

ds 

;Save DS 


Ids 

si,array 

;DS;SIsArray pointer 


else 




mov 

si,array 

;DS:SI=Array pointer 


endif 



restorescreeni: 

push 

di 

;Save the video offset 


mov 

cx,cols 

;CXsNumber of columns 

rep 

movsw 


;Save the row 


pop 

di 

;Restore the video offset 


add 

di,160 

;Point it to the next row 


dec 

word ptr rows 

;Loop 


jnz 

restorescreeni 

; till done 


if 

bigdata 



pop 

endif 

ds 

;Restore DS 


call 

enable_cga 

;Enable the CGA if necessary 


pop 

es 

;Restore 


pop 

si 

; the 


pop 

di 

; registers 


ifdef 

cpu286 



leave 


;Restore the stack 


else 




mov 

sp,bp 

;Reset the stack pointer 


pop 

endif 

bp 

;Restore BP 


ret 


;Return 

_restorescreen 

endp 



« 

; Draw box 

1 

if 

bigeode 


_drawbox 

proc 

far 


rowl 

equ 

<6[bp]> 


coll 

equ 

<8[bpl> 


row2 

equ 

<10[bp]> 



continued... 
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col2 

equ 

<12tbp]> 


flag 

equ 

<U[bp]> 


att 

equ 

else 

<16[bp]> 


_drawbox 

proc 

near 


roul 

equ 

<4tbp]> 


coll 

equ 

<6tbp]> 


row2 

equ 

<8[bp]> 


col2 

equ 

<10Ibp]> 


flag 

equ 

<12Ibp]> 


att 

equ 

endif 

<14tbp]> 


rows 

equ 

<-2[bp]> 


cols 

equ 

ifdef 

<-4[bp]> 

cpu286 



enter 

else 

4.0 i 

Set up the stack 


push 

bp 

•Save BP 


mov 

bp.ap 

•Point it to the stack 


sub 

endif 

8p,4 

•Save space for local c 


push 

di 

Save 


push 

es 

the registers 


mov 

ax,row1 

Figure 


mov 

bx^coU 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DIsVideo offset 


mov 

eSfdisplayseg 

ESsVideo segment 


mov 

ax,rou2 

Figure 


sub 

ax,row1 

the number 


dec 

ax 

of rows - 2 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,col1 

the number 


dec 

ax 

of columns - 2 


mov 

cld 

cols,ax 

Save it 

Flag increment 


mov 

ah,att 

AH=Display attribute 


call 

disable_cga 

Disable the CGA if nec 

continued... 
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push 

df 


Save the video offset 


mov 

al,201 


ALsDouble line character 


cmp 

word ptr 

flag.O 

Jump if 


je 

drawboxl 


double line 


mov 

al,218 


AL^Single line character 

drawboxl: 

stosw 



Save the character/attribute pair 


mov 

al,205 


ALsDouble line character 


cmp 

word ptr 

flag,0 

Jump if 


je 

drawbox2 


double line 


mov 

alJ96 


ALsSingle line character 

drawbox2: 

mov 

CXfCOlS 


CX-Line length 

rep 

stosw 



Display the line 


mov 

al,187 


AL^Double line character 


cmp 

word ptr 

flag,0 

Jump if 


je 

drawbox3 


double line 


mov 

alJ91 


ALsSingle line character 

drawbox3; 

stosw 



Save the character/attribute pair 


pop 

d! 


Restore the video pointer 


add 

di J60 


Point it to the next row 

drawbox4: 

push 

di 


Save the video pointer 


mov 

al,186 


ALsOouble line character 


cmp 

word ptr 

flag,0 

Jump if 


je 

drawboxS 


double line 


mov 

al,179 


ALsSingle line character 

drawboxS: 

stosw 



Save the character/attribute pair 


add 

di,cols 


Point to 


add 

di,cols 


the right side 


stosw 



Save the character/attribute pair 


pop 

df 


Restore the video pointer 


add 

df,160 


Point it to the next row 


dec 

word ptr 

rows 

Loop till the 


jnz 

drawbox4 


sides are complete 


mov 

al,200 


AL-Double line character 


cmp 

word ptr 

flag,0 

Jump if 


je 

drawbox6 


double line 


mov 

al,192 


ALsSingle line character 

drawbox6: 

stosw 



Save the character/attribute pair 


mov 

al,205 


AL34)ouble line character 


continued... 
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cmp 

word ptr flag, 


je 

drawbox? 


mov 

al,196 

drawboxZ: 

mov 

cx,cols 

rep 

stosw 



mov 

al,188 


cmp 

word ptr flag 


je 

drawboxB 


mov 

al,217 

drawboxS: 

stosw 



call 

enable^cga 


pop 

es 


pop 

di 


ifdef 

cpu286 


leave 



else 



mov 

ePfbp 


pop 

bp 


endif 



ret 


_drawbox 

endp 



Display string 


i 

if 

bigeode 

_printstring 

proc 

far 

row 

equ 

<6tbp]> 

col 

equ 

<8Cbp]> 

string 

equ 

else 

<10[bp]> 

j>rintstring 

proc 

near 

row 

equ 

<4Cbp]> 

col 

equ 

<6[bp]> 

string 

equ 

endif 

<8[bp]> 


ifdef 

cpu286 


enter 

0.0 


continued... 


;Junip if 

; double line 

;ALs=Single line character 

;CXsLine length 

;Display the line 

;ALsDouble line character 

;Jump if 

; double line 

;ALsSingle line character 

;Save the character/attribute pair 

;Enable the CGA if necessary 

;Restore 

; the registers 

;Restore the stack 

;Reset the stack pointer 
;Restore BP 

;Return 


;Set up the stack frame 
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else 




push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


endif 




push 

si 

Save 


push 

di 

the 


push 

es 

registers 


mov 

ax,row 

Figure 


mov 

bx,col 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DI»Video offset 


mov 

es,displayseg 

ES-Video segment 


cld 


Flag increment 


cmp 

word ptr __nonibm,0 ;IBM CGA? 


if 

bigdata 



push 

ds 

[Save DS 


Ids 

si,string 

'DS:SIsString pointer 


else 




mov 

si,string 

^DS:SI=String pointer 


endif 




je 

print_string2 

Jump if IBH CGA 

print_string1: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

print_string6 

if done 


stosb 


Display the character 


inc 

di 

Bump the video pointer 


jmp 

print_stringl 

Loop till done 

print_string2: 

mov 

dx,03dah 

DXsVideo status register 

print_string3: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

print_string6 

if done 


mov 

ah,al 

Put it in AH 


cli 


Disable the interrupts 

print_string4: 

in 

al,dx 

Loop 


and 

al,1 

if in 


jnz 

print_string4 

horizontal retrace 

print^stn'ngS: 

in 

al,dx 

Loop 


and 

al,1 

if not in 


jz 

print_st rings 

horizontal retrace 


continued... 
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mov 

es:[di],ah 

;Display the character 


Stl 


;Reenable the interrupts 


inc 

di 

;Bump the 


inc 

di 

; video pointer 


jmp 

print_string3 

;Loop till done 

print_string6: 

if 

bigdata 



pop 

endif 

ds 

;Restore DS 


pop 

es 

;Restore 


pop 

di 

; the 


pop 

si 

; registers 


ifdef 

cpu286 



leave 


;Restore the stack 


else 




pop 

endif 

bp 

;Restore BP 


ret 


;Return 

jsrintstring 

endp 




Get a Key 


I 

if 

bigeode 


^waitkey 

proc 

else 

far 


_waitkey 

proc 

endif 

near 



mov 

ah,01h 

;Has a key 


int 

16h 

; been pressed? 



_waitkey 

;Loop if not 


mov 

ah,0 

;Get 


int 

16h 

; the key 


or 

al,al 

;Jump if 


jz 

wait^keyl 

; extended key 


xor 

ah, ah 

;Erase the scan code 


jmp 

short wait_key2 

;Jump 

wait_key1: 

xchg 

ah,al 

;AXsScan code 


inc 

ah 

;AX-Scan code + 256 

wait_key2: 

_waitkey 

ret 

endp 


;Return 

continued... 
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Figure video offset 


# 

fig_vid_off 

proc 

near 



push 

dx 

;Save DX 


push 

bx 

;Save the column 


dec 

ax 

;Decrement the row 


mov 

bxJ60 

;Figure the 


mul 

bx 

; row offset 


pop 

bx 

;Restore the column 


dec 

bx 

;Decrement it 


sal 

bx,1 

;Figure the column pair offset 


add 

ax,bx 

;AX=Video offset 


pop 

dx 

; Restore DX 


ret 


; Return 

fig_vid_off 

endp 



; Disable CGA 




disable^cga 

proc 

near 



cmp 

_nonibm,0 

Jump if it 


jne 

disable_cga2 

isn't an IBM CGA 


push 

ax 

Save the 


push 

dx 

registers 


mov 

dx,3dah 

DXsVideo status port 

disable^cgal: 

in 

al,dx 

Wait 


and 

al,8 

for 


jz 

disable_cga1 

vertical retrace 


mov 

dl,0d8h 

DX»Video select register port 


mov 

al,25h 

Disable 


out 

dx,al 

the video 


pop 

dx 

Restore 


pop 

ax 

the registers 

disable_cga2: 

ret 


Return 

disable_cga 

endp 
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Enable CGA 


enable_cga 

proc 

near 



cmp 

_nonibm,0 

Jump if it 


jne 

enable_cga1 

isn't an IBM CGA 


push 

ax 

Save 


push 

bx 

the 


push 

dx 

registers 


push 

ds 



mov 

ax,bios_data 

Set the 


mov 

ds,ax 

data segment 


mov 

bx,crt_mode_set 

BXsVideo mode set value pointer 


mov 

al,[bx] 

AL-Video mode set value 


mov 

dx,03d8h 

DXsVideo select register port 


out 

dx^al 

Reenable the video mode 


pop 

ds 

Restore 


pop 

dx 

the 


pop 

bx 

registers 


pop 

ax 


enable_cga1; 

ret 


Return 

enable_cga 

endp 




if 

bi geode 


$c$_video 

ends 




else 



SbSprog 

ends 




endif 




end 
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COMPILING WINDOWS WITH LAHICE C 3.3 
Batch File Listing; lccomp.bat 

Listing C.6, lccomp.bat, is a batch file for compiling the WINDOWS toolbox, win- 
dows.iib. 

Listing C.6: iccomp.bat 


rem 

rem lccomp.bat 

rem Compile WINDOWS with Lattice C 3.3 

rem 

masm /mx video.Ic,; 

Ic -dLATTICEC -n -mp windio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 

rem 

lib windows.lib +video+windio+window+menus+popupfdialog+pulldown+error; 
rem 

rem Remove the Unwanted OBJ Files 

rem 

del video.obj 
del uindio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
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Source Listing: video.Ic 

Listing C.7, video Jc, is a special Lattice C version of video.asm. 


Listing C.7: video.Ic 


VIDEO.LC - For the WINDOWS Toolbox 

Lattice C Version of VIDEO.ASM 


Set LPROG and LDATA as follows: 


Memory Model 
S 
P 
D 
L 
H 

I prog 
Idata 


LPROG LDATA 

0 0 

1 0 

0 1 

1 1 

1 1 

equ 1 

equ 0 

ifdef cpu286 
.286 
endif 


; ROM BIOS Locations 
! 

bios_data equ 40h 

crt_(nocle_set equ 65h 

continued... 
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DGROUP 

group 

DATA 

DATA 

segment word public ^DATA' 


assume 

ds:DGROUP 


public 

_nonibm 

_nonibm 

dw 

1 

displayseg 

dw 

ObSOOh 

DATA 

ends 




if 

Iprog 

VIDEO^TEXT 

segment 

para public 'CODE' 


assume 

else 

cs:VIDEO_TEXT 

_TEXT 

segment para public 'CODE' 


assume 

endif 

cs:_TEXT 


public 

settext80,fillscreen^setattrib 


public 

savescreen,restorescreen,drawbox 


public 

printstring,waitkey 


; Set to 80 X 25 text mode 

# 

if Iprog 

settextSO proc far 

else 

settextSO proc near 

endif 

mov ah,15 

;Get the 

int 

lOh 

; video mode 

cmp 

al,2 

;Jump 

je 

settextSOI 

; if 

cmp 

al,3 

; it's 

je 

settextSOI 

; already 


continued. 
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cmp 

al,7 

a 80 X 25 


je 

settext801 ; 

video mode 


mov 

ax,3 ; 

Set it to 


int 

lOh ; 

80 X 25 color 

settextSOI: 

mov 

ax,0500h 

Set the 


int 

lOh 

page to 0 


mov 

ah,12h 

Check 


mov 

bl,10h 

for 


int 

10h 

EGA 


cmp 

bl,10h 

Jump 


jne 

settext803 

if EGA 


mov 

ah, 15 

Get the 


int 

lOh 

video mode 


cmp 

al,7 

Jump 


je 

settext802 

if HDA 


mov 

_nonibm,0 

Flag IBM CGA 


imp 

short settext803 

;Jump 

settext802: 

mov 

displayseg.ObOOOh ;Set the display segment address 

settext803: 

ret 


;Return 

settext80 

endp 




Fill text window 



if 

Iprog 

fillscreen 

proc 

far 

rowl 

equ 

<6[bp]> 

coll 

equ 

<8Cbp]> 

row2 

equ 

<10[bp]> 

col2 

equ 

<12Cbp]> 

char 

equ 

<14[bp]> 

att 

equ 

else 

<16Cbp]> 

fillscreen 

proc 

near 

rowl 

equ 

<4Cbp]> 

coll 

equ 

<6[bp]> 

row2 

equ 

<8[bp]> 

col2 

equ 

<10[bp]> 

char 

equ 

<12Cbp]> 

att 

equ 

endif 

<14[bp]> 


continued... 
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rows 

equ 

<-2Cbp]> 


cols 

equ 

<-4[bp3> 



ifdef 

cpu286 



enter 

4,0 

;Set up the stack frame 


else 




push 

bp 

;Save BP registers 


mov 

bp,sp 

yPoint it to the stack 


sub 

sp,4 

;Reserve local space 


endif 




push 

di 

Save the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DI=Video offset 


mov 

es,displayseg 

ESsVideo segment 


mov 

ax,row2 

Figure 


sub 

ax, rowl 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,col1 

the number 


inc 

ax 

of columns 


mov 

cols,ax 

Save it 


cld 


Flag increment 


mov 

al,byte ptr char 

;ALsDisplay character 


mov 

ah,byte ptr att 

AHsDisplay attribute 


call 

disable^cga 

Disable the CGA if necessary 

fillscreeni: 

push 

di 

Save the video offset 


mov 

cx,cols 

CXsNumber of columns 

rep 

stosw 


Display the row 


pop 

di 

Restore the video offset 


add 

di,160 

Point it to the next row 


dec 

word ptr rows 

Loop 


jnz 

fillscreeni 

till done 


call 

enable_cga 

Enable the CGA if necessary 


pop 

es 

Restore 


pop 

di 

the registers 


ifdef 

cpu286 
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leave 

else 


;Restore the stack 

mov 

sp.bp 

;Reset the stack pointer 

pop 

efKiif 

bp 

;Restore BP 

ret 


;Return 


fillscreen endp 


Set attributes 


f 

If 

Iprog 


setattrib 

proc 

far 


roul 

equ 

<6[bp]> 


coll 

equ 

<8Cbp]> 


rou2 

equ 

<10Cbp]> 


col2 

equ 

<12[bp]> 


att 

equ 

else 

<14[bpl> 


setattrib 

proc 

near 


rowl 

equ 

<4Cbp]> 


coU 

equ 

<6Cbp]> 


row2 

equ 

<8Cbp]> 


col2 

equ 

<10[bp]> 


att 

equ 

endif 

<12Cbp3> 


rows 

equ 

<-2Cbp]> 


cols 

equ 

ifdef 

<-4Cbp]> 

cpu286 



enter 

else 

4,0 

;Set up the stack frame 


push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


sub 

endif 

sp,4 

;Save space for local data 


push 

di 

;Save the 


push 

es 

; registers 


mov 

ax,roul 

;Figure 


mov 

bx,col1 

; the 

continued... 
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setattribi; 

setattrib2: 


setattrfb 


call 

fig_vid_off 

video offset 

mov 

di,ax 

Dl^Video offset 

fnc 

di 

Bump it to the first attribute 

mov 

es,displayseg 

ES=Video segment 

mov 

ax,row2 

Figure 

sub 

ax,rowl 

the number 

inc 

ax 

of rows 

mov 

rows,ax 

Save it 

mov 

ax,col2 

Figure 

sub 

ax, coll 

the number 

inc 

ax 

columns 

mov 

cols,ax 

Save it 

cld 


Flag increment 

mov 

al,byte ptr att 

AL=Display attribute 

call 

disable_cga 

Disable the CGA if necessary 

push 

di 

Save the video offset 

mov 

cx,cols 

CX-Number of columns 

stosb 


Set the attribute byte 

inc 

di 

Bump the video pointer 

loop 

setattrib2 

Loop till done 

pop 

di 

Restore the video offset 

add 

di,160 

Point it to the next row 

dec 

word ptr rows 

Loop 

jnz 

setattribi 

till done 

call 

enable_cga 

Enable the CGA if necessary 

pop 

es 

Restore 

pop 

di 

the registers 

ifdef 

cpu286 


leave 

else 

1 

Restore the stack 

mov 

sp.bp 

Reset the stack pointer 

pop 

endif 


Restore BP 

ret 

endp 

t 

Return 


Save screen 
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if 

Iprog 


savescreen 

proc 

far 


rowl 

equ 

<6[bp]> 


coll 

equ 

<8Cbp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12tbp]> 


array 

equ 

<14tbp]> 



else 



savescreen 

proc 

near 


rowl 

equ 

<4[bp]> 


coll 

equ 

<6tbp]> 


row2 

equ 

<8[bp]> 


col2 

equ 

<10[bp]> 


array 

equ 

endif 

<12[bp]> 


rows 

equ 

<-2tbp3> 


cols 

equ 

<-4[bp]> 



ifdef 

cpu286 



enter 

4.0 

Set up the stack frame 


else 




push 

bp 

Save BP 


mov 

bp.sp 

Point it to the stack 


sub 

sp,4 

Make room for local data 


endif 




push 

dl 

Save 


push 

si 

the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

si,ax 

Sl-Video offset 


mov 

ax,row2 

Figure 


sub 

ax,rowl 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,coll 

the number 


inc 

ax 

of columns 
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savescreeni: 
rep 


savescreen 


mov 

cols,ax 

;Save it 

cld 


;Flag increment 

call 

disable.cga 

;Disable the CGA if necessary 

push 

ds 

;Save DS 

if 

Idata 


les 

di,array 

;ES:DIsArray pointer 

else 



push 

ds 

;Point ES 

pop 

es 

; to DS 

mov 

di,array 

;ES:DIsArray pointer 

endif 



mov 

ds,displayseg 

;DS:SI-Video pointer 

push 

si 

;Save the video offset 

mov 

cx,cols 

;CXsNumber of columns 

movsw 


;Save the row 

pop 

si 

;Restore the video offset 

add 

si,160 

;Point it to the next row 

dec 

word ptr rows 

;Loop 

jnz 

savescreeni 

; till done 

pop 

ds 

;Restore DS 

call 

enable_cga 

;Enable the CGA if necessary 

pop 

es 

;Restore 

pop 

si 

; the 

pop 

di 

; registers 

ifdef 

cpu286 


leave 


;Restore the stack 

else 



mov 

sp.bp 

;Reset the stack pointer 

pop 

bp 

;Restore BP 

endif 



ret 


;Return 

endp 




Restore screen 

continued... 
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if 

Iprog 

restorescreen 

proc 

far 

row1 

equ 

<6Cbp]> 

coll 

equ 

<8Cbp]> 

rou2 

equ 

<10[bp]> 

col2 

equ 

<12Cbp]> 

array 

equ 

else , 

<14Cbp3> 

restorescreen 

proc 

near 

rowl 

equ 

<4 [bp3> 

coll 

equ 

<6Cbp]> 

row2 

equ 

<8Cbp]> 

col2 

equ 

<10[bp3> 

array 

equ 

endif 

<12Cbp3> 

rows 

equ 

<-2[bp3> 

cols 

equ 

<-4Cbp]> 


ifdef 

cpu286 


enter 

else 

4,0 


push 

bp 


mov 

bp,sp 


sub 

endif 

sp,4 


push 

di 


push 

si 


push 

es 


mov 

ax,row1 


mov 

bx,col1 


call 

fig_vid_off 


mov 

di,ax 


mov 

es,displayseg 


mov 

ax,row2 


sub 

ax,rowl 


inc 

ax 


mov 

rows,ax 


mov 

ax,col2 


sub 

ax,coll 


inc 

ax 


;Set up the stack frame 
;Save BP 

;Point it to the stack 
;Nake room for local data 

;Save 
; the 

; registers 
;Figure 
; the 

; video offset 
;DI=Video offset 
;ES=Video segment 
;Figure 
; the number 
; of rows 
;Save it 
;Figure 
; the number 
; of columns 
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mov 

cols,ax 

;Save it 


cld 


;Flag increment 


call 

disable_cga 

;Disable the CGA if necessary 


if 

Idata 



push 

ds 

;Save DS 


Ids 

si,array 

;DS:SI-Array pointer 


else 




mov 

si,array 

;DS:SIsArray pointer 


endif 



restorescreenl: 

push 

di 

;Save the video offset 


mov 

cx,cols 

;CXsNumber of columns 

rep 

movsw 


;Save the row 


pop 

di 

;Restore the video offset 


add 

o. 

1 

;Point it to the next row 


dec 

word ptr rows 

;Loop 


jnz 

restorescreenl 

; till done 


if 

Idata 



pop 

endif 

ds 

;Restore DS 


call 

enable_cga 

;Enable the CGA if necessary 


pop 

es 

;Restore 


pop 

si 

; the 


pop 

di 

; registers 


ifdef 

cpu286 



leave 


/Restore the stack 


else 




mov 

sp,bp 

/Reset the stack pointer 


pop 

endif 

bp 

/Restore BP 


ret 


/Return 

restorescreen 

endp 




Draw box 


f 

if 

Iprog 

drawbox 

proc 

far 

rowl 

equ 

<6Cbp]> 

coll 

equ 

<8Cbp]> 

row2 

equ 

<10Cbp]> 
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col2 

equ 

<12[bp]> 


flag 

equ 

<14Cbp]> 


att 

equ 

else 

<16[bp]> 


drawbox 

proc 

near 


rowl 

equ 

<4tbpJ> 


coll 

equ 

<6[bp]> 


rou2 

equ 

<8tbp]> 


col2 

equ 

<10[bp]> 


flag 

equ 

<12tbp]> 


att 

equ 

endif 

<14tbp]> 


rows 

equ 

<-2[bp]> 


cols 

equ 

ifdef 

<-4tbpl> 

cpu286 



enter 

else 

4.0 ; 

Set up the stack 


push 

bp 

Save BP 


mov 

bp.sp 

Point it to the stack 


sub 

endif 

sp,4 

Save space for local data 


push 

di 

Save the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DIsVideo offset 


mov 

es,d1splayseg 

ES-Video segment 


mov 

ax,row2 

Figure 


sub 

ax,rowl 

the number 


dec 

ax 

of rows - 2 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,coll 

the number 


dec 

ax 

of columns - 2 


mov 

cld 

cols,ax 

Save it 

Flag increment 


mov 

ah,att 

AHsDisplay attribute 


call 

disable_cga 

Disable the CGA if necessary 
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push 

di 

;Save the video offset 


mov 

al,201 

^ALsDouble line character 


cmp 

word ptr flag,0 

;Jump if 


je 

drawboxi 

double line 


mov 

al,218 

;AL«Single line character 

drawboxi: 

stosu 


^Save the character/attribute pair 


mov 

al,205 

^ALsDouble line character 


cmp 

word ptr flag,0 

^Jump if 


je 

drawbox2 

double line 


mov 

al,196 

‘ALsSingle line character 

drawbox2: 

mov 

cx,cols 

'CXsLine length 

rep 

stosw 


‘Display the line 


mov 

al,187 

‘ALsDouble line character 


cmp 

word ptr flag,0 

‘Jump if 


Je 

drawbox3 

double line 


mov 

al,191 

‘ALsSingle line character 

draubox3: 

stosw 


;Save the character/attribute pair 


pop 

di 

^Restore the video pointer 


add 

df,160 

•Point it to the next row 

draubox4: 

push 

di 

‘Save the video pointer 


mov 

alJ86 

;ALsDouble line character 


cmp 

word ptr flag,0 

;Jump if 


je 

drawboxS 

; double line 


mov 

al,179 

;ALsSingle line character 

drawboxS: 

stosw 


iSave the character/attribute pair 


add 

di,cols 

;Point to 


add 

di^cols 

r the right side 


stosw 


;Save the character/attribute pair 


pop 

di 

;Restore the video pointer 


add 

di,160 

fPoint it to the next row 


dec 

word ptr rows 

fLoop till the 


jnz 

drawbox4 

sides are complete 


mov 

al,200 

;AL-Double line character 


cmp 

word ptr flag,0 

;Jump if 


je 

drawbox6 

: double line 


mov 

al,192 

[ALsSingle line character 

drawbox6: 

stosw 


rSave the character/attribute pair 


mov 

al,205 

lALsDouble line character 


cmp 

word ptr flag,0 

iJump if 
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je 

drawboxZ 


mov 

alJ96 

drawboxZ; 

mov 

cx,cols 

rep 

stosw 



mov 

al,188 


cmp 

word ptr flag,0 


ie 

drawboxS 


mov 

al,217 

drawboxS: 

stosw 



call 

enable^cga 


pop 

es 


pop 

dl 


Ifdef 

cpu286 


leave 



else 



mov 

sp,bp 


pop 

bp 


endlf 



ret 


drawbox 

endp 



double line 

AL=Slngle line character 
CXsLIne length 
Display the line 
ALsDouble line character 
Jump If 
double line 

ALsSingle line character 
Save the character/attribute pair 
Enable the CGA If necessary 
Restore 
the registers 

;Restore the stack 

;Reset the stack pointer 
;Restore BP 

.-Return 


Display string 


f 

If 

Iprog 


printstring 

proc 

far 


row 

equ 

•<6[bp]> 


col 

equ 

<8Ibp]> 


string 

equ 

<10[bp]> 



else 



printstring 

proc 

far 


row 

equ 

<4tbp]> 


col 

equ 

<6[bp]> 


string 

equ 

endlf 

<8[bp]> 



Ifdef 

cpu286 



enter 

0,0 

;Set up the stack frame 


else 
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push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


endif 




push 

si 

Save 


push 

di 

the 


push 

es 

registers 


mov 

ax,row 

Figure 


mov 

bx,col 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DI«Video offset 


mov 

es,displayseg 

ESsVideo segment 


cld 


Flag increment 


cmp 

word ptr _nonibm,0 ;IBM CGA? 


if 

Idata 



push 

ds 

;Save DS 


Ids 

si,string 

;DS:SI»String pointer 


else 




mov 

si,string 

;DS:SIsString pointer 


endif 




je 

print_string2 

Jump if IBM CGA 

print_string1: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

print_string6 

if done 


stosb 


Display the character 


inc 

di 

Bump the video pointer 


imp 

print^stringl 

Loop till done 

print_string2: 

mov 

dx,03dah 

DXsVideo status register 

prfnt_string3: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

print_string6 

if done 


mov 

ah,al 

Put it in AH 


cli 


Disable the interrupts 

print_string4: 

in 

al,dx 

Loop 


and 

al,1 

if in 


jnz 

print_string4 

horizontal retrace 

print^stringS: 

in 

al,dx 

Loop 


and 

al,1 

if not in 


jz 

print^strings 

horizontal retrace 


mov 

es:Cdi],ah 

Display the character 
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print_string6: 


printString 


Get a Key 


waitkey 
waitkey 


wait_key1: 


sti 


jReenable the interrupts 

inc 

di 

;Bump the 

inc 

di 

; video pointer 

jmp 

print_strings 

;Loop till done 

if 

Idata 


pop 

endif 

ds 

;Restore 

pop 

es 

; the 

pop 

di 

; registers 

pop 

si 

t 

ifdef 

cpu286 


leave 

else 


;Restore the stack 

pop 

bp 

;Restore BP 

endif 



ret 

endp 


;Return 


if 

Iprog 


proc 

far 


else 



proc 

near 


endif 



mov 

ah^Olh 

;Has a key 

int 

16h 

; been pressed? 

jz 

waitkey 

;Loop if not 

mov 

ah,0 

;Get 

int 

16h 

; the key 

or 

al,al 

;Jump if 

jz 

wait^keyl 

; extended key 

xor 

ah, ah 

;Erase the scan code 

Jmp 

short wait_key2 

;Jump 

xchg 

ah,al 

;AX=Scan code 

inc 

ah 

;AX=Scan code + 256 


continued... 


299 






Appendix C: Compiling the WINDOWS Toolbox 


...from previous page 


wait_lcey2: 

ret 


; Return 

waitkey 

endp 



i 

; Figure video offset 



1 

fig_vid_off 

proc 

near 



push 

dx 

;Save DX 


push 

bx 

;Save the column 


dec 

ax 

^Decrement the row 


mov 

bxJ60 

;Figure the 


mul 

bx 

row offset 


pop 

bx 

^Restore the column 


dec 

bx 

;Decrement it 


sal 

bx,1 

7 Figure the column pair offset 


add 

ax,bx 

;AXsVideo offset 


pop 

dx 

; Restore DX 


ret 


■Return 

fig_vid_off 

endp 



; Disable CGA 




disable_cga 

proc 

near 



cmp 

_nonibm,0 

Jump if it 


jne 

disable_cga2 

isn't an IBM CGA 


push 

ax 

Save the 


push 

dx 

registers 


mov 

dx,3dah 

DXsVideo status port 

disable_cga1: 

in 

al,dx 

Wait 


and 

al,8 

for 


iz 

disable_cga1 

vertical retrace 


mov 

dl^OdSh 

DXsVideo select register port 


mov 

al,25h 

Disable 


out 

dx,al 

the video 


pop 

dx 

Restore 


pop 

ax 

the registers 

disable_cga2: 

ret 


Return 

disable_cga 

endp 
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Enable CGA 


enable_cga 

proc 

near 



cmp 

_nonibm,0 

Jump if it 


jne 

enable_cga1 

isn't an IBM CGA 


push 

ax 

Save 


push 

bx 

the 


push 

dx 

registers 


push 

ds 



mov 

ax,bios_data 

Set the 


mov 

ds,ax 

data segment 


mov 

bx^crt_mode_set 

BXsVideo mode set value pointer 


mov 

al,[bx] 

ALsVideo mode set value 


mov 

dx,03d8h 

DX^video select register port 


out 

dx«al 

Reenable the video mode 


pop 

ds 

Restore 


pop 

dx 

the 


pop 

bx 

registers 


pop 

ax 


enable_cga1: 

ret 


Return 

enable_cga 

endp 




if 

Iprog 


VIDEO^TEXT 

ends 




else 



_TEXT 

ends 




endif 




end 
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COMPILING WINDOWS WITH MICROSOFT C 5.1 


Batch File Listing: mccomp.bat 

Listing C.8, iiiccomp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. In addition to constructing the Wn<nX>WS toolbox, mccomp.bat 
compiles and links SIMPLE LEDGER. 


Listing C.8: mccomp.bat 


rem 

rent mccomp.bat 

rem Compile WINDOWS with Microsoft C 5.1 

rem 

masm /mx /cMICROSOFTC video,; 

cl /DNICROSOFTC /c windio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 
rem 

lib windows.lib ••■video^windicH’Window+menus't’popup^^ialog+pulldown+error; 
rem 

rem Compile and Link SIMPLE LEDGER 

rem 

cl /DMICROSOFTC ledger.c /link windows 
rem 

rem Remove the Unwanted OBJ Files 

rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
del ledger.obj 
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COMPILING WINDOWS WITH MICROSOFT QUICKC 1.01 
Batch File Listing: qccomp.bat 

Listing C.9, qccoinp.bat, is a batch file for compiling the WINDOWS toolbox. In 
addition to constructing the WINDOWS toolbox, qccomp.bat compiles and links 
SIMPLE LEDGER and also constructs a WINDOWS toolbox quick library, win¬ 
dows, qib. 

Listing C.9: qccomp.bat 


rem 

rem qccomp.bat 

rem Compile WINDOWS with Microsoft QuickC 1.0 

rem 

masm /mx /dMICROSOFTC video,; 

qcl /AH /DMICROSOFTC /c windio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 
rem 

lib windows.lib '*'Video+windia('Window+menus'i-popup^dialog*i’pulldown+error; 
rem 

rem Build WINDOWS Quick Library - windows.qlb 

rem 

qlib /I windows.lib /s qcqlb.c 
rem 

rem Compile and Link SIMPLE LEDGER 
rem 

qcl /AM /DMICROSOFTC ledger.c /link windows 
rem 

rem Remove the Unwanted OBJ Files 
rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
del ledger.obj 
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Source File Listing: qcqlb.c 

Listing C.10, qcqlbx, is used by qccomp.bat to include the _harderr and 
_hardresume run-time library functions in the WINDOWS toolboxquick library. 


Listing C.10: qcqib.c 


* qcqlb.c - For the WINDOWS Toolbox 

* To Build a Quick Library With Microsoft QuickC 


harderr(); 
hardresumeC); 


COMPILING WINDOWS WITH POWER C 1.1.6 _ 

Batch File Listing; pccomp.bat 

Listing C.11, pccomp.bat, is a batch file for compiling the WINDOWS toolbox. 
Because Power C doesn’t come with an object file librarian, the WINDOWS tool¬ 
box is compiled as a collection of separate MIX files. 


Listing C.11: pccomp.bat 


rem 

rem pccomp.bat 

rem Compile WINDOWS with Power C 1.1.6 

rem 

masm /mx /dPOWERC video,; 
mix video.obj 

pc /dPOWERC /c windio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Remove the Unwanted OBJ File 

rem 

del video.obj 
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COMPILING WINDOWS WITH TURBO C 1.5 _ 

Batch File Listing: tccomp.bat 

Listing C.12, tccomp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. Besides constructing the WINDOWS toolbox, tccomp.bat compiles 
and links SIMPLE LEDGER. 

Listing C.12: tccomp.bat 


rem 

rent tccomp.bat 

rem Compile WINDOWS with Turbo C 1.5 
rem 

masm /mx /dTURBOC video,; 

tec -DTURBOC -c windio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 

rem 

tlib windows.lib -t-video^windio+window+menus+popup^dialog+pulldown+error 
rem 

rem Compile and Link SIMPLE LEDGER 

rem 

tcc -DTURBOC ledger.c windows.lib 
rem 

rem Remove the Unwanted OBJ and Temporary Files 

rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
del ledger.obj 
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COMPILING WINDOWS WITH WATCOM C 6.5 


Batch File Listing: wccomp.bat 

Listing C.13, wccomp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. Besides constructing the WINDOWS toolbox, wccomp.bat compiles 
and links SIMPLE LEDGER. 


Listing C.13: wccomp.bat 


rem 

rem wccomp.bat 

rem Compile WINDOWS with WATCOM C 6.5 
rem 

masm /mx video.wc,; 

wcl windio.c window.c menus.c popup.c dialog.c pulldown.c error.c /dWATCOMC /c /d2 
rem 

rem Build WINDOWS library - windows.lib 

rem 

wlib windows.lib +video+windio+window+menus+popup4-dialog+pulldown<-error 
rem 

rem Compile and Link SIMPLE LEDGER 

rem 

wcc ledger.c /dWATCOMC /d2 

wlink file ledger library windows,clibs,maths 

rem 

rem Remove the Unwanted OBJ Files 

rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
del ledger.obj 
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Source Listing: video.wc 

T . isting C.14, video.wc, is a special WATCOM C version of video.asm. 

Listing C.14: video.wc 


VIDEO.WC - For the WINDOWS Toolbox 

Uatcom C 6.5 Version of VIDEO.ASM 


ifdef cpu286 

.286 
endif 


; ROM BIOS Locations 

f 

bios_data equ 40h 

crt_roode_set equ 65h 


DGROUP group .DATA 

.DATA segment word public ^DATA' 

assume ds:DGROUP 

public _nonibm 

_nonibm du 1 

displayseg dw ObSOOh 

DATA ends 


VIDEO.TEXT segment para public 'CODE' 
assume cs:VIDEO.TEXT 

public settext80.,fiIlscreen.,setattrib. 
publ 1 c savescreen.,restorescreen.,drawbox. 
public printstring.,waitkey. 

continued... 


307 





Appendix C: Compiling the WINDOWS Toolbox 


...from previous page 


; Set to 80 

X 25 text 

mode 


1 

settext80_ 

proc 

far 



mov 

ah,15 

Get the 


int 

lOh 

video mode 


cmp 

al,2 

Jump 


je 

settext801 

if 


cmp 

al,3 

it^s 


je 

settext801 

a1 ready 


cmp 

al,7 

a 80 x 25 


je 

settext801 

video mode 


mov 

ax,3 

Set it to 


int 

lOh 

80 X 25 color 

settextSOI: 

mov 

ax,0500h 

Set the 


int 

lOh 

page to 0 


mov 

ah,12h 

Check 


mov 

bl,10h 

for 


int 

lOh 

EGA 


cmp 

bl,10h 

Jump 


jne 

settext803 

if EGA 


mov 

ah, 15 

Get the 


int 

lOh 

video mode 


cmp 

al,7 

Jump 


je 

settext802 

if MDA 


mov 

_^nonibm,0 

Flag IBM CGA 


jmp 

short settext803 

;Jump 

settext802: 

mov 

displayseg,0b000l 

1 ;Set the display : 

settext803: 

ret 


; Return 

settext80_ 

endp 



; Fill text 

window 



fillscreen_ 

proc 

far 


char 

equ 

<6Cbp]> 


att 

equ 

<8Cbp]> 


rows 

equ 

<-2[bp]> 



continued.. 
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cols 


f 1 llscreeni: 
rep 


fi Uscreen 

continued... 


equ 

<-4Cbp]> 


i f def 

cpu286 


enter 

else 

^,0 

Set up the stack frame 

push 

bp 

Save BP registers 

mov 

bp,sp 

Point it to the stack 

sub 

endif 

sp,4 

Reserve local space 

push 

di 

Save DI 

sub 

bx,ax 

Figure the 

inc 

bx 

number of rows 

mov 

rous,bx 

Save it 

sub 

cx,dx 

Figure the 

inc 

cx 

number of columns 

mov 

cols,cx 

Save it 

call 

fig_vid_off 

•Figure the video offset 

mov 

di,ax 

•DI=Video offset 

mov 

eSfdisplayseg 

•ES=Video segment 

cld 


?Flag increment 

mov 

alfbyte ptr char 

;AL=Display character 

mov 

ah,byte ptr att ; 

;AH-Display attribute 

call 

disable^cga ; 

•Disable the CGA if necessary 

push 

di 

;Save the video offset 

mov 

cx,cols 

;CX=Number of columns 

stosu 


;Display the row 

pop 

di 

;Restore the video offset 

add 

di,160 

;Point it to the next row 

dec 

word ptr rows 

;Loop 

jnz 

fillscreeni 

; till done 

call 

enable_cga 

;Enable the CGA if necessary 

pop 

di 

;Restore DI 

if def 

cpu286 


leave 

else 


; Restore the stack 

mov 

sp,bp 

;Reset the stack pointer 

pop 

endif 

bp 

;Restore BP 

ret 

endp 


;Return 
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Set attributes 


setattrib^ 

proc 

far 


att 

equ 

<6[bp]> 


rows 

equ 

<-2tbpJ> 


cols 

equ 

ifdef 

<-4[bp]> 

cpu286 



enter 

else 

4.0 

;Set up the stack frame 


push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


sub 

endif 

sp,4 

;Save space for local data 


push 

df 

;Save 01 


sub 

bx,ax 

;Figure the 


inc 

bx 

; number of rows 


mov 

rowSfbx 

;Save it 


sub 

cx,dx 

;Figure the 


inc 

cx 

number columns 


mov 

cols^cx 

;Save it 


call 

fig_vid_off 

;Figure the video offset 


mov 

di,ax 

^DlsVideo offset 


inc 

di 

rBump it to the first attribute 


mov 

cld 

es,displayseg 

;ESsVideo segment 
;Flag increment 


mov 

al,b/te ptr att 

;AL=Display attribute 


call 

disable_cga 

;Disable the CGA if necessary 

setattribi: 

push 

di 

;Save the video offset 


mov 

cx,cols 

XX»Mumber of columns 

setattrib2: 

stosb 


^Set the attribute byte 


inc 

di 

fBump the video pointer 


loop 

setattrib2 

Loop till done 


pop 

di 

Restore the video offset 


add 

di J60 

Point it to the next row 


dec 

word ptr rows 

Loop 


jnz 

setattribi 

till done 


call 

enable_cga 

Enable the CGA if necessary 


continued... 
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...from previous page 


pop 

di 

;Restore DI 

ifdef 

cpu286 


leave 


;Restore the stack 

else 



mov 

sp,bp 

;Reset the stack pointer 

pop 

bp 

;Restore BP 

endif 



ret 


;Return 

setattrib_ endp 




; Save screen 


» 

savescreen_ 

proc 

far 


array 


equ 

<6tbp]> 


rows 


equ 

<-2[bp]> 


cols 


equ 

<-4Ibp]> 




ifdef 

cpu286 




enter 

4,0 

;Set up the stack frame 



else 





push 

bp 

;Save BP 



mov 

bp.sp 

;Point it to the stack 



sub 

sp,4 

;Make room for local data 



endif 





push 

di 

;Save the 



push 

si 

; registers 



sub 

bx,ax 

;Figure the 



inc 

bx 

; number of rows 



mov 

rows,bx 

;Save it 



sub 

cx,dx 

;Figure the 



inc 

cx 

; number of columns 



mov 

cols,cx 

;Save it 



call 

fig_vid_off 

;Figure video offset 



mov 

si,ax 

;SI=Video offset 



cld 


;Flag increment 



call 

disable_cga 

;Disable the CGA if necessary 



push 

ds 

;Save DS 



les 

di,array 

;ES:DI=Array pointer 



mov 

ds,displayse9 

;DS:SIsVideo pointer 


continued... 
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savescreeni: 

push 

si 

;Save the video offset 


mov 

CXfCOlS 

;CX3Number of columns 

rep 

movsu 


;Save the row 


pop 

si 

;Restore the video offset 


add 

si J60 

;Point it to the next row 


dec 

word ptr rows 

;Loop 


jnz 

savescreeni 

; till done 


pop 

ds 

;Restore DS 


call 

enable_cga 

;Enable the CGA if necessary 


pop 

si 

;Restore 


pop 

di 

; the registers 


ifdef 

cpu286 



leave 


;Restore the stack 


else 




mov 

sp,bp 

;Reset the stack pointer 


pop 

endif 

bp 

;Restore BP 


ret 


;Return 

savescreen_ 

endp 




Restore screen 


• 

restorescreen_ 

proc 

far 


array 

equ 

<6[bp]> 


rows 

equ 

<-2[bp]> 


cols 

equ 

ifdef 

<-4Ibp]> 

cpu286 



enter 

else 

4.0 

;Set up the stack frame 


push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


sub 

endif 

sp,4 

;Make room for local data 


push 

di 

;Save the 


push 

si 

; registers 


sub 

bx,ax 

;Figure the 


inc 

bx 

; number of rows 


mov 

rows,bx 

;Save it 
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sub 

cx,dx 

Figure the 


inc 

cx 

number of columns 


mov 

cols,cx 

Save it 


call 

fig_vid_off 

Figure the video offset 


fflOV 

di,ax 

Dl=Video offset 


mpv 

es^displayseg 

ES-Video segment 


cld 


Flag increment 


call 

disable_cga 

Disable the CGA if necessary 


push 

ds 

Save DS 


Ids 

si,array 

DS:SI=Array pointer 

restorescreenl: 

push 

di 

Save the video offset 


mov 

cx,cols 

CX=Number of columns 

rep 

movsu 


Save the row 


pop 

di 

Restore the video offset 


add 

di,160 

Point it to the next row 


dec 

word ptr rows 

Loop 


jnz 

restorescreenl 

till done 


pop 

ds 

Restore DS 


call 

enable^cga 

Enable the CGA if necessary 


pop 

si 

Restore 


pop 

di 

the registers 


ifdef 

cpu286 



leave 


; Restore the stack 


else 




mov 

sp,bp 

;Reset the stack pointe 


pop 

endif 

bp 

; Restore BP 


ret 


; Return 

restorescreen_ 

endp 




Draw box 


t 

drawbox_ 

proc 

far 

flag 

equ 

<6Cbp]> 

att 

equ 

•<8[bp]> 

rows 

equ 

<-2tbp]> 


continued... 
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cols 


drawboxl: 


drawbox2; 

rep 


drawbox3: 


equ 

<-4tbpl> 

ifdef 

cpu286 

enter 

4,0 

else 


push 

bp 

mov 

bp.sp 

sub 

8P,4 

endif 


push 

di 

sub 

bx,ax 

dec 

bx 

mov 

rows,bx 

sub 

cx,dx 

dec 

cx 

mov 

cols,cx 

call 

f ig_^vid_off 

mov 

di,ax 

mov 

es,displayseg 

cld 


mov 

ah,att 

call 

disable_cga 

push 

di 

mov 

al,201 

cmp 

word ptr flag, 

je 

drawboxl 

mov 

al,218 

stosw 


mov 

al,205 

cmp 

word ptr flag, 

je 

drawbox2 

mov 

al,196 

mov 

cx^cols 

stosw 


mov 

alJ87 

cmp 

word ptr flag 

je 

drawbox3 

mov 

al,191 

stosw 


pop 

di 

add 

diJ60 


;Set up the stack 
;Save BP 

;Point It to the stack 
;Save space for local data 

;Save DI 
;Figure the 
; number of rows - 2 
;Save it 
;Figure the 

; number of columns - 2 
;Save it 

;Figure the video offset 

;DlsVideo offset 

;ESsVideo segment 

;Flag increment 

;AH-Display attribute 

;Disable the CGA if necessary 

;Save the video offset 

;ALsDouble line character 

;Jump if 

; double line 

;ALsSingle line character 

;Save the character/attribute pair 

;ALsDouble line character 

;Jump if 

; double line 

;ALsSingle line character 

;CX3Line length 

/Display the line 

/AL^ouble line character 

/Jump if 

/ double line 

/AL-Single line character 

/Save the character/attribute pair 

/Restore the video pointer 

/Point it to the next row 
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draubox4: 

push 

di 


mov 

al,186 


cmp 

word ptr flag^ 


je 

drawboxS 


mov 

alJ79 

drawboxS: 

stosw 



add 

di,cols 


add 

di^cols 


stosw 



pop 

di 


add 

di,160 


dec 

word ptr rows 


jnz 

drawbox4 


mov 

al,200 


cmp 

word ptr flag 


je 

drawbox6 


mov 

al,192 

drawbox6: 

stosw 



mov 

al,205 


cmp 

word ptr flag 


je 

drawboxZ 


mov 

al,196 

drawbox7: 

mov 

cx,cols 

rep 

stosw 



mov 

al,18S 


cmp 

word ptr flag 


je 

drawboxS 


mov 

al,217 

drawboxS: 

stosw 



call 

enable_cga 


pop 

di 


ifdef 

cpu2S6 


leave 



else 



mov 

sp.bp 


pop 

bp 


endif 



ret 


drawbox_ 

endp 



Save the video pointer 
AL=Double line character 
Jump if 
double line 

AL^^Single line character 
Save the character/attribute pair 
Point to 
the right side 

Save the character/attribute pair 
Restore the video pointer 
Point it to the next row 
Loop till the 
sides are complete 
AL=Double line character 
Jump if 
double line 

AL^Single line character 
Save the character/attribute pair 
ALsDouble line character 
Jump if 
double line 

AL-Single line character 
CX^ine length 
Display the line 
AL=Double line character 
Jump if 
double line 

ALsSingle line character 
Save the character/attribute pair 
Enable the CGA if necessary 
Restore DI 

;Restore the stack 

;Reset the stack pointer 
;Restore BP 

;Return 


continued. 
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Display string 


f 

printstring_ 

proc 

far 



ifdef 

cpu286 



enter 

0,0 

fSet up the stack frame 


else 




push 

bp 

’Save BP 


mov 

bp,sp 

'Point it to the stack 


endif 




push 

si 

'Save the 


push 

di 

registers 


call 

fig_vid_off 

'Figure the video offset 


mov 

di,ax 

’DI*Video offset 


mov 

es,displayseg 

;ES-Video segment 


cld 


'Flag increment 


cmp 

word ptr _^nonibm,0 ;IBM CGA? 


push 

ds 

Save DS 


mov 

ds,cx 

DS=String segment 


mov 

si,bx 

SI>String offset 


je 

printstring2 

Jump if IBM CGA 

printstringl: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

printstring6 

if done 


stosb 


Display the character 


inc 

di 

Bump the video pointer 


jnp 

printstringl 

Loop till done 

printstring2: 

mov 

dx,03dah 

DX=Video status register 

printstring3: 

lodsb 


Get the next character 


or 

al,al 

Jump 


jz 

printstring6 

if done 


mov 

ah,al 

Put it in AH 


cli 


Disable the interrupts 

printstring4: 

in 

al,dx 

Loop 


and 

al,1 

if in 


jnz 

printstring4 

horizontal retrace 


continued... 
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printstringS: 

in 

al,dx 

Loop 


and 

al,1 

if not in 


jz 

printstringS 

horizontal retrace 


mov 

es:[di],ah 

Display the character 


sti 


Reenable the interrupts 


inc 

di 

Bump the 


inc 

di 

video pointer 


jmp 

printstringS 

Loop till done 

printstring6: 

pop 

ds 

Restore 


pop 

di 

the 


pop 

si 

registers 


ifdef 

cpu286 



leave 


; Restore the stack 


else 




pop 

endif 

bp 

; Restore BP 


ret 


; Return 

printstring_ 

endp 




Get a Key 


f 

waitkey__ 

proc 

far 



mov 

ah,01h 

;Has a key 


int 

16h 

; been pressed? 


jz 

waitkey^ 

;Loop if not 


mov 

ah,0 

;Get 


int 

16h 

; the key 


or 

al,al 

;Jump if 


jz 

waitkeyl 

; extended key 


xor 

ah, ah 

;Erase the scan code 


jmp 

short uaitkey2 

;Jump 

waitkeyl: 

xchg 

ah,al 

;AX=Scan code 


inc 

ah 

;AX=$Scan code 256 

waitkey2: 

ret 


;Return 

waitkey_ 

endp 




continued... 
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Figure video offset 


w 

fig_vid_off 

proc 

near 



push 

dx 

;Save the column 


dec 

ax 

;Decrement the row 


mov 

dx,160 

;Figure the 


mul 

dx 

; row offset 


pop 

dx 

;Restore the column 


dec 

dx 

;Decrement it 


sal 

dx,1 

;Figure the column pair offset 

fig_vid_off 

add 

ret 

endp 

ax,dx 

;AXsVideo offset 
; Return 

1 

; Disable CGA 

« 

disable_cga 

proc 

near 



cmp 

_nonibm,0 

;Jump if it 


jne 

disable_cga2 

isn't an IBM CGA 


push 

ax 

;Save the 


push 

dx 

registers 


mov 

dx,3dah 

^DXsVideo status port 

disable_cga1: 

in 

al,dx 

Wait 


and 

al,8 

for 


jz 

disable_cga1 

vertical retrace 


mov 

dl,0d8h 

'DXsVideo select register port 


mov 

al,25h 

'Disable 


out 

dx,al 

the video 


pop 

dx 

Restore 


pop 

ax 

the registers 

disable_cga2: 

disable_cga 

ret 

endp 


Return 


continued... 
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Enable CGA 


enable_cga 

proc 

near 



cmp 

__nonibm,0 

Jump If ft 


jne 

enable_cga1 

Isn't an IBM CGA 


push 

ax 

Save 


push 

bx 

the 


push 

dx 

registers 


push 

ds 



mov 

ax,bios_data 

Set the 


mov 

ds,ax 

data segment 


mov 

bx,crt_mode^set 

BXsVideo mode set value pointer 


mov 

al,[bx] 

ALsVideo mode set value 


mov 

dx,03d8h 

DX»Video select register port 


out 

dx^al 

Reenable the video mode 


pop 

ds 

Restore 


pop 

dx 

the 


pop 

bx 

registers 


pop 

ax 


enable_cga1: 

ret 


Return 

enable_cga 

endp 



VIDEOJEXT 

ends 




end 
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COMPILING WINDOWS WITH WATCOM EXPRESS C 6.5 
Batch File Listing: eccomp.bat 

Listing C.15, ecco]np.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. In addition to constructing the WINDOWS toolbox, eccomp.bat 
compiles and links SIMPLE LEDGER. 

Listing C.15: eccomp.bat 


rent 

rem eccomp.bat 

rem Compile WINDOWS with WATCOM Express C 6.5 

rem 

masm /mx /dWATCOHC video,; 
wcexp windio.c /dWATCOMC /o /dl 
wcexp window.c /dWATCOHC /o /dl 
wcexp menus.c /dWATCOMC /o /dl 
wcexp popup.c /dWATCOMC /o /dl 
wcexp dialog.c /dWATCOMC /o /dl 
wcexp pulldown.c /dWATCOMC /o /dl 
wcexp error.c /WATCOMC /o /dl 
rem 

rem Build WINDOWS library - windows.lib 

rem 

wlib windows.lib +video+windio+window+menus+popup+dialog+pulldown+error 
rem 

rem Compile and Link SIMPLE LEDGER 
rem 

wcexp ledger.c /dWATCOMC /o /dl 

wlink file ledger library windows,wcexpI 

rem 

rem Remove the Unwanted OBJ Files 

rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
del ledger.obj 
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COMPILING WINDOWS WITH ZORTECH C++ _ 

Batch File Listing: zccomp.bat 

listing C.16, zccomp.bat, is a batch file for compiling the WINDOWS toolbox, 
windows.lib. 


Listing C.16: zccomp.bat 


rent 

rem zccomp.bat 

rem Compile WINDOWS with Zortech C and C-t-*** 

rem 

masm /mx video.zc,; 

ztc -c -dZORTECHC uindio.c window.c menus.c popup.c dialog.c pulldown.c error.c 
rem 

rem Build WINDOWS library - windows.lib 

rem 

lib windows.lib -('Video^windiai’Window^menus'fpopup+dialog+pulldowrH'error; 
rem 

rem Remove the Unwanted OBJ Files 
rem 

del video.obj 
del windio.obj 
del window.obj 
del menus.obj 
del popup.obj 
del dialog.obj 
del pulldown.obj 
del error.obj 
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Source Listing: video.zc 

Listing C.17, videos is a special Zortech C+ + version of video.asm. 

Listing C.17: video.zc 

i 

; VIDEO.ZC - For the WINDOWS Toolbox 
; Zortech C++ Version of VIDEO.ASM 

I 

I 

; Set BIGCODE and BIGDATA as follows: 

I 

; Memory Model BIGCODE BIGDATA 


; Small 0 0 
; Medium 1 0 
; Compact 0 1 
; Large 1 1 

BIGCODE equ 0 
BIGDATA equ 0 


ifdef cpu286 

.286 
endif 


; ROM BIOS Locations 
# 

bios_data equ 40h 

crt_mode_set equ 65h 

DGROUP group _DATA 

_DATA segment word public 'DATA' 

assume ds:DGROUP 

public _^nonibm 

continued... 
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...from previous page 

_nonibin dw 1 

displayseg dw ObBOOh 

data ends 


if bigeode 

VIDEO^TEXT segment word public 'CODE' 

assume cs:VlDEO_TEXT 
else 

_TEXT segment word public 'CODE' 

assume cs:_TEXT 
endif 

public _settext 80 ,_fillscreen,_setattrib 
public _savescreen,_restorescreen,_drawbox 
publie _printst ring,_wait key 


Set to 80 X 25 text mode 



if 

bigeode 


_settext80 

proc 

far 



else 



_settext80 

proc 

near 



endif 




mov 

ah, 15 

Get the 


int 

lOh 

video mode 


emp 

al,2 

Jump 


je 

settextBOl 

if 


emp 

al,3 

it's 


je 

settextBOl 

already 


emp 

al,7 

a 80 X 25 


je 

settextBOl 

video mode 


mov 

ax,3 

Set it to 


int 

lOh 

80 X 25 color 


continued... 
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settextSOI: 

mov 

ax,0500h 

Set the 


int 

lOh 

page to 0 


mov 

ahJ2h 

Check 


mov 

bl,10h 

for 


int 

lOh 

EGA 


cmp 

bl,10h 

Jump 


jne 

settext803 

if EGA 


mov 

ah, 15 

Get the 


int 

lOh 

video mode 


cmp 

al,7 

Jump 


je 

settext802 

if NDA 


mov 

_nonibm,0 

Flag IBM CGA 


jmp 

short 8ettext803 

;Jump 

settext802: 

mov 

displayseg.ObOOOh ;Set the display segment address 

8ettext803: 

ret 

i 

Return 

_settext80 

endp 




; Fill text 

window 


$ 

if 

bfgeode 

_fillscreen 

proc 

far 

rowl 

equ 

<6[bp]> 

coll 

equ 

<8tbp]> 

row2 

equ 

<10[bp]> 

col2 

equ 

<12Cbp]> 

char 

equ 

<14[bp]> 

att 

equ 

else 

<16[bp]> 

_f illscreen 

proc 

near 

rowl 

equ 

<4[bp]> 

coll 

equ 

<6[bp]> 

row2 

equ 

<8[bp]> 

col2 

equ 

<10[bp]> 

char 

equ 

<12[bp]> 

att 

equ 

endif 

<U[bp]> 


continued... 
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rows 

cols 


fi Uscreenl: 
rep 


equ 

<-2[bp]> 


equ 

<-4[bp]> 


ifdef 

cpu286 


enter 

else 

4,0 

;Set up the stack frame 

push 

bp 

;Save BP registers 

mov 

bp.sp 

;Point it to the stack 

sub 

endif 

sp,4 

;Reserve local space 

push 

di 

;Save 

push 

es 

; the registers 

mov 

ax,row1 

;Figure 

mov 

bXfCoU 

; the 

call 

fig_vid_off 

; video offset 

mov 

di,ax 

;DI=Video offset 

mov 

eSfdisplayseg ;ES=Video segment 

mov 

ax,row2 

;Figure 

sub 

ax,row1 

; the number 

inc 

ax 

; of rows 

mov 

rows,ax 

;Save it 

mov 

ax,col2 

;Figure 

sub 

ax,coll 

; the number 

inc 

ax 

; of columns 

mov 

cols,ax 

;Save it 

cld 


;Flag increment 

mov 

al,byte ptr 

char ;AL-Display character 

mov 

ah,byte ptr 

att ;AH=Display attribute 

call 

disable_cga 

;Disable the CGA if necessary 

push 

di 

;Save the video offset 

mov 

cx,cols 

;CX=Number of columns 

stosw 


;Display the row 

pop 

di 

;Restore the video offset 

add 

di,160 

;Point it to the next row 

dec 

word ptr rows ;Loop 

jnz 

fi Uscreenl 

; till done 

call 

enable_cga 

;Enable the CGA if necessary 

pop 

es 

;Restore 

pop 

di 

; the registers 


continued... 
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ifdef cpu286 

leave ;Restore the stack 

else 

mov sp,bp ;Reset the stack pointer 

pop bp ;Restore BP 

endif 

ret ;Return 

_fillscreen endp 


Set attributes 


^setattrib 

if 

proc 

bigeode 
far 


rowl 

equ 

<6tbp]> 


coll 

equ 

<8[bp]> 


rou2 

equ 

<10Cbp]> 


col2 

equ 

<12[bp]> 


att 

equ 

<14[bp]> 


_setattrib 

else 

proc 

near 


row1 

equ 

<4tbp]> 


COM 

equ 

<6[bp]> 


row2 

equ 

<8Ibp]> 


col2 

equ 

<10(bp]> 


att 

equ 

<12tbp]> 


rows 

endif 

equ 

<-2tbp]> 


cols 

equ 

<-4[bp]> 



if def 

enter 

cpu286 

4,0 

;Set up the stack frame 


else 

push 

bp 

;Save BP 


mov 

bp.sp 

;Point it to the stack 


sub 

sp,4 

;Save space for local data 


endif 

push 

di 

;Save 


push 

es 

; the registers 


continued... 
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...from previous page 



mov 

ax,row1 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

DI=Video offset 


inc 

di 

Bump it to the first attribute 


mov 

es,displayseg 

ES^Video segment 


mov 

ax,rou2 

Figure 


sub 

ax,row1 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


sub 

ax,coll 

the number 


inc 

ax 

columns 


mov 

cld 

cols,ax 

Save it 

Flag increment 


mov 

al,byte ptr att 

AL-Display attribute 


call 

disable_cga 

Disable the CGA if necessary 

setattrlbl: 

push 

di 

Save the video offset 


mov 

cx,cols 

CX-Number of columns 

setattrib2: 

stosb 


Set the attribute byte 


inc 

di 

Bump the video pointer 


loop 

setattrib2 

Loop till done 


pop 

di 

Restore the video offset 


add 

di,160 

Point it to the next row 


dec 

word ptr rows 

Loop 


jnz 

setattribi 

till done 


call 

enable_cga 

Enable the CGA if necessary 


pop 

es 

Restore 


pop 

ifdef 

leave 

else 

di 

cpu286 

the registers 

; Restore the stack 


mov 

sp.bp 

;Reset the stack pointer 

_setattrib 

pop 

endif 

ret 

endp 

bp 

;Restore BP 

;Return 

continued... 
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Save screen 


f 

if 

bi geode 


^savescreen 

proc 

far 


rowl 

equ 

<6Cbp]> 


coll 

equ 

<8[bp3> 


row2 

equ 

<10Cbp]> 


col2 

equ 

<12Cbp]> 


array 

equ 

else 

<14[bp]> 


_savescreen 

proc 

near 


rowl 

equ 

<4Cbp3> 


coll 

equ 

<6Cbp]> 


row2 

equ 

<8Cbp]> 


col2 

equ 

<10[bp]> 


array 

equ 

endif 

<12[bp3> 


rows 

equ 

<-2Cbp]> 


cols 

equ 

ifdef 

<-4Cbp]> 

cpu286 



enter 

else 

4,0 

;$et up the stack frame 


push 

bp 

;Save BP 


mov 

bp,sp 

;Point it to the stack 


sub 

endif 

sp,4 

;Make room for local data 


push 

di 

Save 


push 

si 

the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

si,ax 

SlsVideo offset 


mov 

ax,row2 

Figure 


sub 

ax,rowl 

the number 


inc 

ax 

of rows 


mov 

rows,ax 

Save it 


mov 

ax,col2 

Figure 


continued... 
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sub 

ax, coll 


inc 

ax 


mov 

cols,ax 


cld 



call 

disable_cga 


push 

ds 


if 

bigdata 


les 

di,array 


else 



push 

ds 


pop 

es 


mov 

di,array 


endif 



mov 

ds,displayseg 

savescreeni: 

push 

si 


mov 

cx,cols 

rep 

movsw 



pop 

si 


add 

si,160 


dec 

word ptr rows 


jnz 

savescreeni 


pop 

ds 


call 

enable.cga 


pop 

es 


pop 

si 


pop 

di 


ifdef 

cpu286 


leave 



else 



mov 

sp,bp 


pop 

bp 


endif 



ret 


_savescreen 

endp 



continued... 


the number 
of columns 
;Save it 
;Flag increment 
^Disable the CGA if necessary 
;Save OS 

;ES:DI*Array Pointer 
;Point ES 

; to the data segment 
;ES:DI«Array pointer 

;DS:SlsVideo pointer 
;Save the video offset 
;CX«Number of columns 
;Save the row 
jRestore the video offset 
;Point it to the next row 
;Loop 

; till done 
;Restore DS 

jEnable the CGA if necessary 
;Restore 
; the 

; registers 

;Restore the stack 

;Reset the stack pointer 
;Restore BP 

;Return 
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Restore screen 



if 

bigeode 


_restorescreen 

proc 

far 


rowl 

equ 

<6Cbp]> 


coll 

equ 

<8Cbp3> 


row2 

equ 

<10Cbp]> 


col2 

equ 

<12Cbp]> 


array 

equ 

<UCbp3> 



else 



__restorescreen 

proc 

near 


rowl 

equ 

<4[bp]> 


coll 

equ 

<6Cbp]> 


row2 

equ 

<8Cbp]> 


col2 

equ 

<10[bp]> 


array 

equ 

endif 

<12[bp]> 


rows 

equ 

<-2Cbp]> 


cols 

equ 

<-4[bp]> 



ifdef 

cpu286 



enter 

4,0 j 

;Set up the stack frame 


else 




push 

bp 

^Save BP 


mov 

bp,sp 

;Point it to the stack 


sub 

sp,4 

;Make room for local data 


endif 




push 

di 

Save 


push 

si 

the 


push 

es 

registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig_vid_off 

video offset 


mov 

di,ax 

OlsVideo offset 


mov 

es,displayseg 

ES=Video segment 


mov 

ax,row2 

Figure 


sub 

ax, row1 

the number 


inc 

ax 

of rows 


continued... 
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rep 


mov 

rows,ax 

;Save it 

mov 

ax,col2 

; Figure 

sub 

ax,coll 

; the number 

inc 

ax 

; of columns 

mov 

cols,ax 

;Save it 

cld 


;Flag increment 

call 

disable^cga 

;Disable the CGA if necessary 

if 

bigdata 


push 

ds 

;Save DS 

Ids 

else 

si,array 

;DS:SI=Array pointer 

mov 

endif 

si,array 

;DS:SI=Array pointer 

push 

di 

;Save the video offset 

mov 

cx,cols 

;CX=Number of columns 

movsw 


;Save the row 

pop 

di 

;Restore the video offset 

add 

di,160 

;Point it to the next row 

dec 

word ptr rows 

;Loop 

jnz 

restorescreen! 

; till done 

if 

bigdata 


pop 

endif 

ds 

;Restore DS 

call 

enable_cga 

;Enable the CGA if necessary 

pop 

es 

;Restore 

pop 

si 

; the 

pop 

di 

; registers 

ifdef 

cpu286 


leave 

else 


;Restore the stack 

mov 

sp,bp 

;Reset the stack pointer 

pop 

endif 

bp 

;Restore BP 

ret 


;Return 


_re8torescreen endp 

continued... 
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Draw box 


_drawbox 

if 

proc 

bigeode 
far 


rowl 

equ 

<6[bp]> 


coll 

equ 

<8[bp]> 


row2 

equ 

<10[bp]> 


col2 

equ 

<12Cbp]> 


flag 

equ 

<14[bp]> 


att 

equ 

<16tbp]> 


_drawbox 

else 

proc 

near 


rowl 

equ 

<4[bp]> 


coll 

equ 

<6Cbp]> 


row2 

equ 

<8Cbp3> 


col2 

equ 

<10[bp]> 


flag 

equ 

<12[bp]> 


att 

equ 

<14Cbp3> 


rows 

endif 

equ 

<-2tbp]> 


cols 

equ 

<-4[bp]> 



ffdef 

enter 

cpu286 

^.0 

;Set up the stack 


else 

push 

bp 

;Save BP 


mov 

bp,sp 

?Point it to the t 


sub 

sp,4 

;Save space for U 


endif 

push 

di 

Save 


push 

es 

the registers 


mov 

ax,rowl 

Figure 


mov 

bx,col1 

the 


call 

fig__vid_off 

video offset 


mov 

di,ax 

Dl^Video offset 


mov 

es,displayseg 

ES-Video segment 


mov 

ax,row2 

Figure 


sub 

ax, rowl 

the number 


continued... 
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drawboxl: 


drawbox2: 

rep 


drawbox3: 


drawbox4: 


drauboxS: 


dec 

ax ; 

mov 

rows,ax 

mov 

ax,col2 

sub 

ax,coll 

dec 

ax 

mov 

cols,ax 

cld 

mov 

ah,att 

call 

disable^cga 

push 

di 

mov 

al,201 

cmp 

word ptr flag,0 

je 

drawboxl 

mov 

al,218 

stosw 

mov 

al,205 

cmp 

word ptr flag,0 

je 

drawbox2 

mov 

al,196 

mov 

cx,cols 

stosw 

mov 

al,187 

cmp 

word ptr flag,0 

Je 

drawbox3 

mov 

al,191 

stosw 

pop 

di 

add 

di,160 

push 

di 

mov 

al,186 

cmp 

word ptr flag,0 

je 

drawbox5 

mov 

al,179 

stosw 

add 

di,cols 

add 

di,cols 

stosw 

pop 

di 

add 

di,160 


of rows - 2 
Save it 
Figure 
the nunter 
of columns - 2 
ave it 

Lag increment 
AHsDisplay attribute 
Disable the CGA if necessary 
Save the video offset 
AL=Oouble line character 
Jump if 
double line 

AL-Single line character 
Save the character/attribute pair 
ALsOouble line character 
Jump if 
double line 

ALsSingle line character 
CX=Line length 
Display the line 
ALsDouble line character 
Jump if 
double line 

ALsSingle line character 
Save the character/attribute pair 
Restore the video pointer 
Point it to the next row 
Save the video pointer 
ALsDouble line character 
Jump if 
double line 

AL=Single line character 
Save the character/attribute pair 
Point to . 
the right side 

Save the character/attribute pair 
Restore the video pointer 
Point it to the next row 


continued... 
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dec 

word ptr 

rows 


jnz 

drawbox4 



mov 

al,200 



cmp 

word ptr 

flag 


je 

drawbox6 



mov 

al,192 


drawbox6: 

stosw 




mov 

al,205 



cmp 

word ptr 

flag 


je 

drawboxZ 



mov 

alJ96 


drawboxZ: 

mov 

cx,cols 


rep 

stosw 




mov 

al,188 



cmp 

word ptr 

flag 


je 

drawboxS 



mov 

al,217 


drauboxS: 

stosw 




call 

enable_cga 


pop 

es 



pop 

di 



ifdef 

cpu286 



leave 




else 




mov 

sp,bp 



pop 

bp 



endif 




ret 



_drawbox 

endp 




Display string 


f 

if 

bigeode 

jDrintstring 

proc 

far 

row 

equ 

<6[bp]> 

col 

equ 

<8[bp]> 

string 

equ 

else 

<10[bp]> 


continued... 


;Loop till the 

; sides are complete 

;AL-Double line character 

;Jump if 

; double line 

;ALsSingle line character 

;Save the character/attribute pair 

;ALsDouble line character 

;Jump if 

; double line 

;ALsSingle line character 

;CX-Line length 

;Di8play the line 

;ALsDouble line character 

;Jump if 

; double line 

;ALsSingle line character 

;Save the character/attribute pair 

;Enable the CGA if necessary 

;Restore 

; the registers 

;Restore the stack 

;Reset the stack pointer 
;Restore BP 

;Return 
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j>rintstring 

proc 

row 

equ 

col 

equ 

string 

equ 


endif 

ifdef 

enter 

else 

push 

mov 

endif 

push 

push 

push 

mov 

mov 

call 

mov 

mov 

cld 

cmp 

if 

push 

Ids 

else 

mov 

endif 

je 

pr i nt__st r i ngl: I odsb 
or 

jz 

stosb 

inc 

jmp 

print_string2: mov 

print_string3: lodsb 
or 

jz 

mov 

cli 

continued... 


near 
<4 [bp]> 
<6[bpl> 
<8[bp]> 


cpu286 

0^0 ;Set up the stack frame 


bp 

bp,sp 


;Save BP 

;Point it to the stack 


si 

di 

es 

ax,row 
bx,col 
fig^vid^off 
di,ax 

es,displayseg 


Save 

the 

registers 

Figure 

the 

video offset 
DI=Video offset 
ES-Video segment 
Flag increment 


word ptr __nonibm,0 ;IBM CGA? 
bigdata 

ds ;Save DS 

si,string ;DS:SI=String pointer 


si,string ;DS:SI=String pointer 


print_string2 

al,al 

print_string6 

di 

print_string1 

dx,03dah 

al,al 

print_string6 

ah,al 


Jump if IBM CGA 

Get the next character 

Jump 

: if done 

;Display the character 

[Bump the video pointer 

[Loop till done 

[DX=Video status register 

;Get the next character 

;Jump 

; if done 

;Put it in AH 

;Disable the interrupts 
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...from previous page 


print_string4: in 

al,dx 

;Loop 

and 

alj 

; if in 

jnz 

print_string4 

; horizontal retrace 

print_string5: in 

al,dx 

;Loop 

and 

aM 

; if not in 

jz 

print^strings 

; horizontal retrace 

mov 

es:[di],ah 

jDisplay the character 

sti 


;Reenable the interrupts 

inc 

di 

;Bump the 

inc 

di 

; video pointer 

imp 

print_string3 

;Loop till done 

print_string6: if 

bigdata 


pop 

ds 

;Restore DS 

endif 



pop 

es 

;Restore 

pop 

di 

; the 

pop 

si 

; registers 

ifdef 

cpu286 


leave 


;Restore the stack 

else 



pop 

bp 

;Restore BP 

endif 



ret 


;Return 

jDrintstring endp 




Get a Key 


i 

if 

bigeode 


_waitkey 

proc 

else 

far 


_waitkey 

proc 

endif 

near 



mov 

ah,01h 

;Has a key 


int 

16h 

; been pressed? 


jz 

_waitkey 

;Loop if not 


mov 

ah,0 

;Get 


int 

16h 

; the key 


or 

al,al 

;Jump if 
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...from previous page 



jz 

wait^keyl 

; extended key 



xor 

ah, ah 

;Erase the scan 

code 


jmp 

short wait_key2 

;Jump 


wait_key1: 

xchg 

ah,al 

;AXsScan code 



inc 

ah 

;AXsScan code + 

256 

wait_key2: 

ret 


;Return 


_waitkey 

endp 





; Figure video offset 
i 

f i g_vi d_of f proc near 

push dx 

push bx 

dec ax 

mov bx,160 
mul bx 

pop bx 

dec bx 

sal bxj 

add ax,bx 

pop dx 

ret 

f1fl_vid_off endp 


Save DX 

Save the column 
Decrement the row 
Figure the 
: row offset 
^Restore the column 
^Decrement it 

[Figure the column pair offset 
•AXsVideo offset 
[Restore DX 
[Return 


; Disable CGA 

i 

disable_c 9 a proc near 

cmp _nonibin,0 ;Ju«P if 

jne disable_csa2 ; isn't an IBM CGA 

push ax ;Save the 

push dx ; registers 

mov dx,3dah ;DX*Video status port 

continued... 
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...from previous page 


disable_cga1: in al,dx 

and al,8 

jz disable^cgal 
mov dl^OdSh 

mov al,25h 

out dx,al 

pop dx 

pop ax 

disable_cga2: ret 

disable_cga endp 


;Wait 
; for 

; vertical retrace 
lOXsVideo select register port 
Disable 
the video 
Restore 
the registers 
Return 


Enable CGA 


enable_cga 

proc 

near 



cmp 

_nonibm,0 

rJump if it 


jne 

enable_cga1 

isn't an IBM CGA 


push 

ax 

;Save 


push 

bx 

the 


push 

dx 

registers 


push 

ds 



mov 

ax,bios_data 

•Set the 


mov 

ds,ax 

data segment 


mov 

bx,crt_mode_set 

BX^video mode set value pointer 


mov 

al,Cbx] 

AL-Video mode set value 


mov 

dx,03d8h 

DXsVideo select register port 


out 

dx,al 

Reenable the video mode 


pop 

ds 

Restore 


pop 

dx 

’ the 


pop 

bx 

registers 


pop 

ax 


enable_cga1: 

ret 


Return 

enable.cga 

endp 




if 

bigeode 


VIDEO^TEXT 

ends 




else 



_TEXT 

ends 




endif 




end 




338 







339 


















_dos_setvect, 109 
_DOUBLE_LINE, 178-179,186 
DOWN, 202 
DOWNA, 202 
DRAW, 186 
harden:, 106,304 
hardresume, 106,304 
LEFT, 202 
_LEFTA, 202 
_menu_att, 80,168 
”menu_highlight, 80,168 
_menu_hotkey, 80,168 
NOBORDER, 179, 186 
"NODRAW, 186 
_nonibm, 169 
RIGHT, 202 
RIGHTA, 202 

_SINGLE_LINE, 178-179,186 
_UP, 202 
_UPA, 202 
80286, 21 
80386, 21 


B 


boolean, 169 


C 


C86P1US, 252-253 
caUoc, 63-65 

character/attribute pairs, 7 

clearone, 172-173 

clearscreen, 173 

close_window, 76,174 

color display attributes, 8 

Color Graphics Adapter (CGA), 5-6,169 
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[Ctrl/Break], 109-110 
[Ctrl/C], 109-110 
ctrl_c_handler, 109 
cursoroff, 56, 59,175 
cursoron, 57,59,175 


D 


DeSmet DC88, 56,76,254-265 
dialog box menus, 86-87 
dialog_menu, 90-92,175-176 
direct memory access, 4-5,13 
disable_cga, 42 
display coordinates, 6 
display error, 108,177 
draw window, 75,179-180 
drawEox, 40,170 


E 


ECO-C88, 266-283 
enable_cga, 42 

Enhanced Graphics Adapter (EGA), 5-6,169 
error handler, 106,108,180-181 


F 


FALSE, 169 
fig_vid_off, 42 
fillone, 58,181 
fillscreen, 38,182 
free, 63,66-67 
function definitions, 49-50 
function names, 16 


G 


getcurpos, 57,183 
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H 


hardware errors, 104-106 
horizontal retrace interval, 10 
horizontal scroll bar, 62,78 
horizontal_bar, 78,184 
hotstring, 185 


I_ 

initcur, 59 
int86, 56 

L_ 

Lattice C, 50,76, 284-301 
local variables, 19-20,22 


M 


malloc, 63-64 

memmove, 76 

MENU, 170 

MENU_HEAD, 170-171 

Microsoft C, 302 

Microsoft QuickC, 13,303-304 

Monochrome Display Adapter (MDA), 5,169 

monochrome display attributes, 8 

MS-DOS video services, 2,13 


O 


open_window, 75,186-187 


P 


parameter passing, 17 
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popup, 84-85,187-189 
pop-up menus, 81 
Power C, 109,304 
printcenter, 58,189 
printone, 58,190 
printstring, 41,191 
program portability, 250-252 
pull-down menu bar, 92-93 
pull-down menus, 92-94 
pulldown, 100-102,192-197 
pulldown_bar, 99-100,198 


R 


realloc, 63,65-66 
reset_initial_video, 78 
restorescreen, 40,67,199 
return values, 18-19 

ROM BIOS video services, 3-4,13,218-247 
Get Video Mode (OFH), 245-247 
Read Character/Attribute Pair (08H), 230-231 
Read Cursor Values (03H), 220-221 
Read Graphics Pixel (ODH), 241-242 
Read Ught Pen Values (04H), 222-223 
Scroll Window Down (07H), 228-229 
ScroU Window Up (06H), 226-227 
Select Display Page (05H), 224-225 
Set Color Palette (OBH), 236-238 
Set Cursor Position (02H), 3-4,218-219 
Set Cursor Type (OlH), 216-217 
Set Video Mode (OOH), 213-215 
Write Character in Teletype Mode (OEH), 243-244 
Write Character/Attribute Pair (09H), 232-233 
Write Characters (OAH), 234-235 
Write Graphics Pixel (OCH), 239-240 
run-time errors, 104 


S 


save_initial_video, 78,200 
savescreen, 39,67,201 
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scroll_window, 76-77,202-203 
setattrib, 39,204 
setcurpos, 57,205 
setcursor, 57,206 
setone, 58,207 
sett«ct80, 38,169,208 
stack frames, 17-18,21 


T 


TRUE, 169 
Turbo C, 305 


U 


user interface, defied, 12 
user requirements, D 


V 


V20, 21 
V30, 21 

variable names, 16 
vertical retrace interval, 11 
vertical scroll bar, 62,77 
vertical_bar, 77,209 


W 


waitkey, 41,210 
WatcomC, 306-319 
Watcom Express C, 320 
WINDOW, 171 


Z 


ZortechC++, 321-338 
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with sample programs, it demonstrates how to create 
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